Напишите программы в abc паскале пожалуйста: 1)надо ввести три числа и найти из них наибольшее; 2)надо ввести пять чисел и найти из них наибольшее ЗАРАНЕЕ СПС!
program xcshiudcsk;
uses crt;
var a,b,c:integer;
begin
clrscr;
readln(a,b,c);
if (a>c) and (a>b) then writeln(max,a);
if (b>c) and (b>a) then writeln(max,b);
if (c>b) and (c>a) then writeln(max,c);
readln;
end.
Со второй все также, просто переменных побольше. Сделал таким образом, ибо на сложном условии запутаться можно.
Программа просит на ввод a.b.c
Высчитывается наибольшее
Выводится наибольшее
И через массив, конечно, можно, но про него ничего не сказано
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
