if a mod 2= 0 then - это ты проверяешь на четность
n:=0;
если условие соблюдается n:=n+1- то n:=0+1
Var
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until S>=40;
WriteLn('k = ',k)
End.
Для палитры 65536 цветов требуется 16 бит или 2 байта на точку.
Перемножим все данные и получим:
1024*768*2=1572864 байт=1536 кбайт = 1,5 Мбайт
В гигабайте 1024 мегабайт.
120*1024 = 122880 - это мегабайт в 120 гигабайтах
122880/512= 240.
в 240 раз.
На паскале
var a, b, c: real; // можно integer
begin
readln (a);
readln (b);
c:=a+b; //или -
writeln (c);
end.