Необходимо отсчитать 5 раз по 3 минуты = 15 минут, одновременно переворачивать 2 раза по 8 минут. когда 15 минут пройдут, в больших часах остается 1 минута, она заканчивается и переворачиваете часы с 3 минутами 2 раза и того получится 1+3+3=7 минут. задача решена
нужно знать сколько весит один символ тогда x*64*16 // это одна страница. затем переводи в мб
Var n,i:integer;
a:array[1..1024] of integer;
begin
randomize;
write('N=');
readln(n);
for i:=1 to n do
a[i]:=random(2*n+1)-n;
write('V pramom poradke - ');
for i:=1 to n do
write(a[i],' ');
writeln;
write('V obratnom poradke - ');
for i:=n downto 1 do
write(a[i],' ');
writeln;
<span>end.</span>
a=2
b=8
цикл произошел два раза из-за a:=a+1
значит x равен от 100 до 9999(при прохождении получаются числа от 0,01 до 0,9999)
теперь остался b:
b в начале был равен и получил 8 при цикле. mod узнаёт остаток деления на 100 которое прошло 2 раза. посмотрим если выберем 9999
9999(остаток 99) -> 99,99(остаток 99+99). вывод: программа под буквой b вычислила сумма всех двузначных чисел. значит самое максимальное 800( 8 и 0) т.к. если выбрать больше 999 то 1000 это сумма 10 и 0 что не подходит. а нам надо самое максимальное.
Ответ:800
Насколько я понял
k:=0;
for i:=1 to 5 do
begin
readln(a[i]);
if (a[i] mod 10 = 8) and (a[i] mod 3)=0 then
inc(k);
end;
writeln(k);