Размещено 4 года назад по предмету
Информатика
от sam20051134
1. var s,k: integer;
begin
s := 0;
for k := 5 to 11 do
s := s + 6;
writeln(s);
end.
2. var d,n: integer;
begin
d := 5;
d := d - 3;
for n := 1 to 4 do
d := d + n;
writeln(d);
end.
3. var y,i: integer;
begin
y := 5;
for i := 1 to 3 do
y := y + 5 * i;
writeln(y);
end.
сделайте пожалуйста блок-схему и трассировочную таблицу, к каждому очень срочно