1) напечатайте таблицу кубов чисел: -10, -8, - вопрос №110861022058480 от Deyzer777 30.04.2021 15:01

Question

Информатика: 1) напечатайте таблицу кубов чисел: -10, -8, -6, 10. 2)определите результат выполнения программы (без компьютера) begin s: =0; x: =10; repeat s: =s+x; x: =x+10; untill x 12; writein( s= ,s); writein( x= ,s); end.

Deyzer777 · Answer

1)uses crt;var a:integer;begin     for a:=-10 to 10 do     writeln( a= ,a, ,a*a*a:6);end.---2) 10    10...

1) напечатайте таблицу кубов чисел: -10, -8, -6, 10. 2)определите результат выполнения программы (без компьютера) begin s: =0; x: =10; repeat s: =s+x; x: =x+10; untill x> 12; writein('s=',s); writein('x=',s); end.