Решите срочно!!!! дам 40 баллов
1. Определите, что будет напечатано в результате работы следующей программы.
var s, k:integer;
begin
s := 0;
for k := 2 to 12 do
s := s + 11;
writeln (s);
end.
2. Определите, что будет напечатано в результате работы следующей программы.
Var u,i: integer;
Begin
u := 26;
For i := 1 to 5 do
u := u – i;
Writeln(u);
End.
3.. Определите, что будет напечатано в результате работы следующей программы.
var s, k:integer;
begin
s := 0 ;
for k:= 4 to 11 do
s := s + k ;
writeln (s);
end.
4. Определите, что будет напечатано в результате работы следующей программы.
var s, n: integer;
begin
s := 1;
for n := 3 to 8 do
s := s * 2;
write(s);
end.
5. Определите, что будет напечатано в результате работы следующей программы.
Var у,і: integer;
Begin
У := 0;
For і := 1 to 3 do
у := у + 4*і;
Writeln(у);
End.
6. Определите, что будет напечатано в результате работы следующей программы.
Var s,і:integer;
Begin
s := 3;
For і := 2 to 5 do
s := s + 2* і;
Writeln (s) ;
End.