l = []
for i in range(0, 4):
n = int(input())
l.append(n)
print(max(l[0], l[1], l[2], l[3], l[4]))
<em>// PascalABC.NET 3.3, сборка 1573 от 04.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ReadReal('a=');
Writeln('P=',4*a,', S=',a*a)
end.
<u>Пример</u>
a= 3.2
P=12.8, S=10.24
Чем мышь лучше сенсорного экрана?Серьёзно?Это очевидно!Сенсорный экран требуется в куда большим уходом. с мышкой куда проще.+Сенсорная может зависнуть и мы не поймем что мы на тыкаем .. С мышкой такое реже происходит... Я могу много примеров привести если нужно
Uses crt;var a,b,c,d:integer;proc:real;beginclrscr;write('Введите кол-во «5» | ');readln(a);write('Введите кол-во «4» | ');readln(b);write('Введите кол-во «3» | ');readln(c);writeln('======================');d:=a+b+c;writeln('Всего оценок: ',d);writeln('======================');writeln('* Из них *');proc:= (a*100)/d;writeln('«5» - ', proc:0:2,' %');proc:= (b*100)/d;writeln('«4» - ', proc:0:2,' %');proc:= (c*100)/d;writeln('«3» - ', proc:0:2,' %');end.