Регистрация
Войти
Стать экспертом Правила
Информатика

Пожалуйста посчитайте СРОЧНО!!! НЕСЛОЖНО !!!!!1. Даны два случайных числа. Определить а) наибольшее б) наименьшее2. Даны три числа. Вывести а) наибольшее б) наименьшее ПАСКАЛЬ

ОТВЕТЫ
var a,b,c,d:integer;
begin
read (a,b);
if a>b then begin c:=a; d:=b;end
else c:=b; d:=a;end;
writeln(c,d);
end.
886
Контакты
Реклама на сайте
Спрошу
О проекте
Новым пользователям
Новым экспертам