Регистрация
Subina00
13.02.2021 22:18
Информатика
Есть ответ 👍

Паскаль дано n – натуральное число. вывести на экран все числа, кубы которых не превышает n.

223
398
Посмотреть ответы 2

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

shuius
shuius
4,6(27 оценок)
Var n,i: integer; begin write('n = '); readln(n); i: =1; while i*i*i< =n  do   begin   writeln(i,'   ',i*i*i);   i: =i+1;   end; end. пример: n = 200 1   1 2   8 3   27 4   64 5   125
megadens10
megadens10
4,5(29 оценок)
Вpascalabc.net var a,b: integer; begin read(a); random(a); b: =a; write(b); end.

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