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>
2 в 26 степени или
б5 536 бит - 8 Мбайт
Высказывание - предложение, которое может быть истинным или ложным.
<span>а) Все натуральные числа целые. - истинное высказывание
</span><span>б) Существуют ли белые слоны? - вопросительное предложение не является высказыванием.</span>
Цикл повторится 9 раз, если n изначально 0, s=15*8=120.