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.

Денис228ннпп Денис228ннпп    3   27.05.2019 22:50    4

Ответы
Dima228590 Dima228590  01.10.2020 13:05
1)
uses crt;
var a:integer;
begin
     for a:=-10 to 10 do
     writeln('a=',a,' ',a*a*a:6);
end.
---
2) 10
    10
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика