Повторение циклических алгоритмов на языке программирования Pascal

s:= 20;

f:=2

дляx от 7 до 11повторяй

нц

s:= s+f;

кц

вывод s

Определить значение переменной S после выполнения алгоритма

Вводx,y

z:=4*y;

h:=2+x;

s:=z+h;

выводs

x:=1;

покаx< 10 повторяй

нц

x:=x+3

кц;

s:=5*x+2;

Определить значение переменной S после выполнения алгоритма

Вводx

Еслиx>0, то s:=3*x

Иначеs:=x+10;

Выводs

s:= 0;

for x:= 1 to 5 do

s:= s + 3*x;

write (s);

s:=128;

for i:=1 to 4 do

s:=s – 3;

writeln(‘s=’,s);

s:= 100;

for x:= 10 to 15 do

s:= s – x;

write (s);

s:= 0;

for i:= 2 to 5 do

begin

s:= s + i*i;

writeln(‘s=’,s);

end;

s:= 20;

f:=2

дляx от 7 до 11повторяй

нц

s:= s+f;

кц

вывод s

Определить значение переменной S после выполнения алгоритма

Вводx,y

z:=4*y;

h:=2+x;

s:=z+h;

выводs

x:=1;

покаx< 10 повторяй

нц

x:=x+3

кц;

s:=5*x+2;

Определить значение переменной S после выполнения алгоритма

Вводx

Еслиx>0, то s:=3*x

Иначеs:=x+10;

Выводs

s:= 0;

for x:= 1 to 5 do

s:= s + 3*x;

write (s);

s:=128;

for i:=1 to 4 do

s:=s – 3;

writeln(‘s=’,s);

s:= 100;

for x:= 10 to 15 do

s:= s – x;

write (s);

s:= 0;

for i:= 2 to 5 do

begin

s:= s + i*i;

writeln(‘s=’,s);

end;