Question

Выполнить тест, если не можете справиться, то сделайте конспект теоретического материала.
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 := 6 to 10 do
s := s+10;
writeln(s);
End.
ответ:
3. Определите, что будет напечатано в результате работы следующей программы.
Var s,k: integer;
Begin
s:=0;
for k:=1 to 11 do
s:=s+12;
write(s);
End.
ответ:
4. Определите, что будет напечатано в результате работы следующей программы.
var s, k:integer;
begin
s := 0;
for k := 2 to 12 do
s := s + 11;
writeln (s);
end.
ответ:
5. Определите, что будет напечатано в результате работы следующей программы.
var s, k:integer;
begin
s:= 100;
for k:= 0 to 10 do
s:= s - 5;
writeln (s);
end.
ответ:
6. Определите, что будет напечатано в результате работы следующей программы.
Var s,k: integer;
Begin
s := 0;
for k := 14 to 18 do
s := s+7;
writeln(s);
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 := 5 to 8 do
s := s * 3;
write(s);
end.
ответ:
9. Определите, что будет напечатано в результате работы следующей программы.
Var k, і: integer;
Begin
k := 4;
For і := 1 to 3 do
k := 2*k + і;
Writeln(k);
End.
ответ:
10. Определите, что будет напечатано в результате работы следующей программы.
Var у,і: integer;
Begin
У := 0;
For і := 1 to 3 do
у := у + 4*і;
Writeln(у);
End.
ответ

Answer 1

k=количество циклов(в 9 и 10-i)

s=число к которому прибавляют 1 и то же число то или иное количество циклов.(в 9-k/в 10-y)

1.70

2.50

3.132

4.121

5.45

6.35

7.50

8.81

9.43

10.24