Отыскать максимум из 3-х целых чисел Паскалем.

Отыскать максимум из 3-х целых чисел Паскалем.

Задать свой вопрос
2 ответа
Var A,B,C:integer;
Begin
ReadLn(A,B,C);
if Alt;B then A:=B;
if Alt;C then A:=C;
Write(A)
End.
Program beta;
var a,b,c,f:integer;
begin
writeln ('Введите три числа');
readln (a,b,c);
f:=a+b+c
writeln (f)
end.
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт