Составить программу ввести три целых числа и найти наибольшее из них. пример введите три числа 4 15 9 наибольшее число 15
Составить программу ввести три целых числа и найти наибольшее из них. пример введите три числа 4 15 9 наибольшее число 15
Гость
Ответ(ы) на вопрос:
ГостьProgram Max;
Var a, b, c: Integer;
Begin
Write('a = ');
ReadLn(a);
Write('b = ');
ReadLn(b);
Write('c = ');
ReadLn(c);
If a > b Then
Begin
If a > c Then
WriteLn(a)
Else
WriteLn(c);
End
Else If b > c Then
WriteLn(b)
Else
WriteLn(c);
ReadLn;
End.
Не нашли ответ?
Похожие вопросы