N=2^i ; i=24 (У вас скорей всего опечатка, так как 2^24=16777216
1024*764=783360
783360*16бит=12533760 бита/8бит/1024Байт=1530Кб/1024Кб=1,49мб
program fgh;
var i, s, n, a:integer;
begin
s:=0;
writeln('введите 10 чисел');
for i:= 1 to 10 do
begin
readln(a);
if a mod 2 <> 0 then
s:=s+a;
end;
writeln('сумма= ', s);
end.
Я оформил каждое задание в отдельной функции. Пожалуйста, перед сдачей проверь на правильность выполнения т.к. у меня нет среды разработки и компилятора)) Перепрофилировался в джаву с питоном))
113)Вторая мировая война
114)Возвергающий вулкан
Program Pr1;
uses crt;
var a,b,c:integer;
f:boolean;
Begin
clrscr;
f:=false;
readln(a,b,c);
if (a mod 2=0) or (b mod 2=0) or (c mod 2=0) then f:=true;
writeln(f);
end.