Var a,max:integer;
begin
max:=0;
repeat
readln(a);
if a>max then max:=a;
until a=0;
writeln('max: ',max);
end.
Вариант с циклом while
var a,max:integer;
begin
writeln('Введите число: ');
readln(a); max:=a;
while a<>0 do begin
writeln('Введите число: ');
readln(a);
if a>max then max:=a;
end;
writeln('max: ',max);
end.
Архитектура системной платы определяется набором микросхем (chipset) – это одна или несколько микросхем, таймеры, система управления специально разработанная для "обвязки" микропроцессора.
2^8=256. Это значит, что на запись одного автомобиля отводится 8 бит или 1 байт информации. После прохождения 90 участников, информационный объем сообщения будет равен 90 байт
Вычисляем количество всех точек 786432. 16 байт нужно для 256 цветов
Вычисляем объём в байтах 12582912 байт = 12288 Кб