1
2
3
4
5
6
<span># Четные до ста
r = 2
while r < 101
print r
r = r + 2
end <span>while</span></span>
Program p;
uses crt;
const N= 10; {N - количество чисел в последовательности}
var i,p, M:integer; a:array[1..N] of integer;
begin
p:=1;
write('введите число M=');readln(M);
writeln('введите исходный массив');
for i:=1 to N do {начало цикла по кол эл }
begin
write('a[',i,']='); readln(a[i]); {ввод эл массива}
if a[i]>M then p:=p*a[i];
end;
if M=1 then writeln(' элементов > M нет')
else writeln('p=',p); {печать произведения}
readln
end. <span> </span>
<span>3) =C42+2*D42</span>
..............................
Ответ:
program vasa228;
var x,y,z,a:int64;
begin
readln(x,y,z);
a:=0;
while round((2*x+3*y+4*z+a*5)/(x+y+z+a))<4 do a:=a+1;
write(a);
end.
Объяснение:
2048*1536*32=100663296 бит
100663296/8 бит/1024 байт = 12288 Кбайт/1024 Кбайт = 12 Мбайт