nastyabel72

03.12.2020 14:38 •  Информатика

Во всех заданиях составьте трассировочную таблицу и ответьте на во Определите, что будет напечатано в результате работы следующей программы.

var s, n: integer;
begin
s := 0;
for n := 1 to 10 do
s := s + 7;
write(s);
end.

2. Определите, что будет напечатано в результате работы следующей программы.

var a, k : integer;
begin
a := 40;
for k := 2 to 5 do
a := a – k;
write(a);
end.

3. . Определите, что будет напечатано в результате работы следующей программы.
var y,b,d: integer;
begin
y := 3261;
b:=1;
while y>0 do
begin
d := y mod 10;
b:=b*d;
y:=y div 10
end;
writeln(b);
end.