<h2><u>7. </u></h2>
program raf105;
var
num,max: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
max:= -99999;
repeat
readln(num);
if num > max then max:= num;
until num = 0;
writeln('Вывод: ',max);
end.
<h2><u>8. </u></h2>
program raf105;
var
num,min: integer;
begin
writeln('Вводите числа по очереди. Что бы закончить введите 0');
min:= 99999;
repeat
readln(num);
if (num < min) and (num <> 0) then min:= num;
until num = 0;
writeln('Вывод: ',min);
end.
<h2><u>9. </u></h2>
program raf105;
var
num,count,max: integer;
begin
write('Введите количество чисел: ');
readln(count);
writeln('Вводите числа по очереди');
max:= -99999;
for var i:=1 to count do
begin
readln(num);
if (num > max) and (num mod 5 = 0) and (num <> 0) then max:= num;
end;
if max <> -99999 then writeln('Вывод: ',max)
else writeln('Таких чисел нет.');
end.
<h2><u> </u></h2><h3>PascalABC</h3>
11025000*32*10*2=7056000000 бит = 882000000 байт = 861328,125 Кб = 841,1407470703125 Мб
<span>При работе в среде Windows часто используется термин «задача». Это понятие тесно связано с термином «приложение». Приложение становится задачей после его запуска. Приложение можно запустить двумя способами: либо непосредственно открыв файл запуска, либо открыв документ, созданный в этом приложении. Можно сказать, что задача - это работающее приложение, которое потребляет ресурсы системы или ждет своей очереди на них. Термин «задача» связан с механизмом управления ресурсами, а не с тем, работает с приложением пользователь или нет. О некоторых задачах пользователь может и не подозревать. Список задач можно получить, одновременно нажав клавиши <Ctrl><Alt><Del>. Приложения могут запускаться либо по инициативе пользователя, либо по инициативе Windows. Все задачи должны быть в той или иной форме отображены на экране.</span>
Здесь всё просто нужно:
Добавить два числа и посчитать нули : 101112+100102 = 201214 Всего 1 нуль.