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