1) Напечатайте таблицу кубов чисел: -10, -8, -6, ... 10.2)Определите результат выполнения программы (без компьютера)begins:=0;x:=10;repeats:=s+x;x:=x+10;untill x больше 12;writein('s=',s);writein('x=',s);end.
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.
Гость
Ответ(ы) на вопрос:
Гость1)
uses crt;
var a:integer;
begin
for a:=-10 to 10 do
writeln('a=',a,' ',a*a*a:6);
end.
---
2) 10
10
Не нашли ответ?
Похожие вопросы