Лучшие помощники
- Megamozg 2205 б
- Matalya1 1800 б
- DevAdmin 1720 б
- arkasha_bortnikov 900 б
- Dwayne_Johnson 870 б
24 апреля 2023 08:03
337
Объяснить, в чем заключается синтаксическая ошибка (или ошибки) в приведенной программе. Написать тот вариант программы, который, по Вашему мнению, будет правильным.
Program Max
Var a, b, c : Real;
Begin
WriteLn('Введите три числа: '); ReadLn(a, b, c);
If a > b Then B := a; Else B := b;
If B > c Then WriteLn(B); Else WriteLn(c)
End.
1
ответ
В данной программе есть две синтаксические ошибки:
1. Оператор сравнения ">" записан неправильно как ">". Это может привести к ошибке компиляции.
2. Второй оператор условия записан неправильно. Вместо "Else" нужно написать "ElseIf".
Правильный вариант программы:
Program Max;
Var
a, b, c : Real;
Begin
WriteLn('Введите три числа: ');
ReadLn(a, b, c);
If a > b Then
b := a
ElseIf b > c Then
WriteLn(b)
Else
WriteLn(c)
End.
1. Оператор сравнения ">" записан неправильно как ">". Это может привести к ошибке компиляции.
2. Второй оператор условия записан неправильно. Вместо "Else" нужно написать "ElseIf".
Правильный вариант программы:
Program Max;
Var
a, b, c : Real;
Begin
WriteLn('Введите три числа: ');
ReadLn(a, b, c);
If a > b Then
b := a
ElseIf b > c Then
WriteLn(b)
Else
WriteLn(c)
End.
0
·
Хороший ответ
24 апреля 2023 08:03
Остались вопросы?
Еще вопросы по категории Математика
со 100 ульев собрали 2 т мёда. сколко кг мёда собрали с 8 ульев,если считать что со всех ульев собрали мёда поровну?...
Являются ли числа в задании '1 9 4 36' простыми?...
Величины двух углов параллелограмма относятся как 3:7. Найдите меньший угол....
Какая масса в граммах соответствует одному ньютону?...
Какой корень из 3?...