Var i,k:integer;
rez:real;
begin
for i:=10 to 99 do
if (i mod 2)=0 then
begin
k:=k+1;
rez:=rez+i;
end;
rez:=rez/k;
writeln(rez:0:1);
<span>end.</span>
Устройство управляющее работой графического дисплея
А= 10; б=3
если а>б (а ну нас 10>3) то б=3+12=15
все
если а>б (а у нас б стало 15) то а=10+12=22
все
ответ а=22
если бы а было меньше б мы бы пошли по пути иначе. т.е сначала проверяется условие, если оно верно, то идем дальше, а если нет - иначе
После терабайта идет петабайт, но самая большая величина йоттабайт
Z:=a*a*a*cos( b*x*sin(x)*sin(x) ) + exp(1/3 *ln(c) )
ИЛИ
z:=exp(3 * ln(a)) * cos(b*x*sqr(sin(x)) +exp(1/3 * ln(c))