Выполнить тест, если не можете справиться, то сделайте конспект теоретического материала.
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.
Ответ:
ПОМОГИТЕ ПЛИИИЗ!!!