Задание
Определите, что будет напечатано в результате работы следующих программ
var s, k: integer;
begin
s := 0;
for k := 6 to 12 do
s := s+10;
writeln(s);
end.
var k, і: integer;
begin
k := 4;
for і := 1 to 3 do
k := 2*k + і;
writeln(k);
end.
var у, і: integer;
begin
y := 0;
for і := 1 to 3 do
у := у + 4*і;
writeln(у);
end.
var s, k:integer;
begin
s:= 100;
for k:= 0 to 10 do
s:= s - 5;
writeln(s);
end.
var s, k: integer;
begin
s := 0;
for k := 14 to 18 do
s := s+7;
writeln(s);
end.
var s, k: integer;
begin
s := 0;
for k := 6 to 10 do
s := s+10;
writeln(s);
end.
var s, k: integer;
begin
s:=0;
for k:=1 to 11 do
s:=s+12;
writeln(s);
end.
var s, k:integer;
begin
s := 0 ;
for k:= 4 to 11 do
s := s + k ;
writeln(s);
end.
var s, k:integer;
begin
s := 0;
for k := 2 to 12 do
s := s + 11;
writeln(s);
end.
var s, n: integer;
begin
s := 1;
for n := 5 to 8 do
s := s * 3;
write(s);
end.
50
45
81
121
43
132
24
35
60
70