7, 8, 9, 10, 11 - всего 5 штук
В начале S=0 и дальше 5 раз прибавляем 11
Вывод:
Ответ 55
Приложение.......................................................
1)
program chik;
var a,b:integer;
begin
read(a,b,c);
if(a mod b=0)then writeln('делиться')else writeln('не делиться');
end.
2)
program chik2;
var a:integer;
begin
read(a);
if(a mod 2=0)then writeln('да')else writeln('NO');
end.
3)
program chik3;
var a,b,c,max:integer;
begin
read(a,b,c);
max:=a;
if(b>max)then max:=b;
if(c>max)then max:=c;
writeln(max);
end.
Вводим x=52
z=1
i=0
Входим в цикл с постусловием и вычисляем
z=(z+x/2)/2=(1+52/2)/2=13.5
Вычисляем внутри цикла i=i+1=0+1=1
Проверяем условие выхода из цикла i<4
Наше i=1 значит 1<4 верное условие, а значит выходим из цикла.
Потому что в цикле с постусловием указывается условие выхода из цикла.
Ответ: 13.5
1)
Var x:real;
Begin
Write('x = ');ReadLn(x);
if x<-3 then Write('f(',x,') = ',x*x+sqrt(x+4))
else if x<0 then Write('f(',x,') = ',x+10)
else Write('f(',x,') = ',1/sqrt(x))
End.
2)
Var
A,B:integer;
S:real;
Begin
Write('A = ');
ReadLn(A);
Write('B = ');
ReadLn(B);
S:=0;
For B:= A to B do
if B mod 2 <> 0 then S:=S+B;
WriteLn('S = ',S);
End.
3)
Var
A,k:integer;
Begin
k:=0;
For A:= 100 to 999 do
if ((A div 100) mod 2 = 0)and(((A div 10) mod 10) mod 2 = 0)and((A mod 10) mod 2 = 0)
then k:=k+1;
WriteLn('k = ',k)
End.