Предполагается, что будет введено минимум одно значение.
varmax,a : integer;beginreadln(a);max := a;repeatreadln(a);if (a > max) and (a <> 0) thenmax := a;until a = 0;writeln(max);readln;end.
P.S. Если понравилось решение не забудь отметить как лучшше. ;)
Подробнее - на Znanija.com -
znanija.com/task/1506362#readmore
Машина или тебе как нужно ну машина модель...
For i=1 to 15
input a
s=s+a
next
? s
Для получения объёма необходимо все перемножить:
1920 * 1080 * 32 = 66355200 бит
Переводим в килобайты: 66355200 : 1024 : 8 = 8100 КБайт
Ответ: 3