var a,b,c,max: integer;
begin
readln(a,b,c);
if a>b then max:=a else max:=b;
if c>max then max:=c;
writeln('max = ',max);
end.
Пример:
12 45 31
max = 45
№1 var s,x,n,i:integer;begins:=0;write('Введите количество чисел: ');readln(n);writeln('Введите числа: ');for i:=1 to n dobeginreadln (x);s:=s+xend;writeln('Сумма чисел равна ',s);end.
№2 var n,i,p:integer;beginp:=1;write('Введите количество чисел: ');readln(n);for i:=1 to n dop:=p*i;writeln('Произведение чисел равнo ',p);end.
Подробнее - на Znanija.com -
znanija.com/task/14923730#readmore
<span>1) 1 Кбайт = 1024 байт = 8192 бит
2) 0.1083984375 Кбайт = 111 байт = 888 бит
3) 2 Кбайт = 2048 байт = 16384 бит</span>
Финикийский V век
О нет! Что-то пошло не так во время добавления ответа
Слишком коротко.<span> Напишите минимум 20 символов, чтобы объяснить все.</span>
<span>Я была в лесу летом. Там я собирала грибы. Было много деревьев и травы,кустов. В конце лета листья начинали опадать. Было очень тихо,слышно только пение птиц. Слышно как шуршит под ногами трава и ветки. Воздух свежий. В лесу очень хорошо отдохнуть,на природе!</span>