Регистрация
radomirboy
Есть ответ 👍

Основы программирования

219
278
Посмотреть ответы 2

Ответы на вопрос:

PonyLove11
PonyLove11
4,4(37 оценок)

program p1;

var a,b:integer;

begin

writeln ('Введите 2 числа');

readln (a,b);

if a=b then writeln ('Числа одинаковые')

else if a>b then

begin writeln ('Наибольшее число ',a);

writeln ('Наименьшее число ',b);

end

else begin writeln ('Наибольшее число ',b);

writeln ('Наиментшее число 10 ',a);

end;

end.

program p2;

var a,b,c,d:integer;

begin

writeln ('Введите 4 числа');

readln (a,b,c,d);

if a<b then a:=b;

if c<d then c:=d;

if a<c then a:=c;

writeln ('Наибольшее число ',a);

end.

Объяснение:

katyaarbato
katyaarbato
4,5(43 оценок)

Бухга́лтерский учёт, арх. счетово́дство — упорядоченная система сбора, регистрации и обобщения информации в денежном выражении о состоянии имущества, обязательствах и капитале организации и их изменениях путём сплошного, непрерывного и документального отражения всех хозяйственных операций.

Популярно: Другие предметы