с информатикой, :
Заполните таблицу для тестирования программногокода:

A:=0; B:=2; S:=4;
Writeln(a,’ ‘,b);
For i:=1 to S do
begin
c:=a+b;
writeln(c);
a:=b;
b:=c;
end;

№ шага i a b c Вывод на экран
0 0 2 0 0 2
1 2
2 4
3 6
4 10

Question

Информатика: с информатикой, : Заполните таблицу для тестирования программногокода: A:=0; B:=2; S:=4; Writeln(a,’ ‘,b); For i:=1 to S do begin c:=a+b; writeln(c); a:=b; b:=c; end; № шага i a b c Вывод на экран 0 0 2 0 0 2 1 2 2 4 3 6 4 10

Lika39211 · Accepted Answer

// PascalABC.NET 3.0, сборка 1076 type   Point=record   x,y:real   end;   Line=record   A,B:Point   end;   Triangle=record   A,B,C:Point;   sa,sb,sc:real; { длины сторон }   end; procedure GetPoint(PointName:char; var M:Point); begin   Write( Введите координаты точки ,PointName, (x,y): );   Read(M.x,M.y) end; function LineLength(A,B:Point):real; begin   LineLength:=sqrt(sqr(B.x-A.x)+sqr(B.y-A.y)) end;   procedure CreateTriangle(var T:Triangle; var l:boolean); begin   With T do begin     GetPoint(...

MOGZ ответил