Program Pr1;
uses crt;
var n,i,a,b,c:integer;
Begin
clrscr;
writeln('Vvedite N');
readln(n);
a:=n;
for i:=2 to 4 do begin
a:=a+10;
n:=n+a;
end;
writeln(n);
end.
2,5 Мбайта = 2,5*1024 Кбайт = 2,5*1024*1024 байт
16 бит = 16/8 байт = 2 байта
Количество страниц = 2,5*1024*1024 / (640*480*2) ≈ 4,3 ≈ 4
Ответ: 4
Var a, b, k:integer;
begin
readln(a);
readln(b);
if (a+b)>10 then
writeln(2*a*b)
else
if (a>b) then
begin
k:=a;
a:=a+b;
b:=k-b;
end
else
begin
k:=b;
b:=b+a;
a:=k-a;
end;
writeln(a, ' ', b);
end.
А где задания?
Хотя бы фото отправить надо.