Регистрация
DariKetrin
19.01.2020 22:27
Информатика
Есть ответ 👍

Из Паскаля в Кумир var x,n: integer;
begin
write('n = ');
readln(n);
x := 1;
while sqr(x) < n do begin
write(sqr(x),' ');
x := x + 1
end;

readln
end.

Условия задачи:Выведите все точные кубы натуральных чисел и сумму кубов, не превосходящие данного числа

101
191
Посмотреть ответы 1

Ответы на вопрос:

kristina150017584969
kristina150017584969
4,6(51 оценок)

Can you please ask a question in English?

Популярно: Информатика