Регистрация
apoploi
23.04.2021 02:47
Информатика
Есть ответ 👍

Вывести квадраты и кубы 10 чисел следующей последовательности: 1 2 4 7 11 16 pascal abc

213
485
Посмотреть ответы 2

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

Mara1111176
Mara1111176
4,4(80 оценок)
Var a,b: real;   begin  a: =1;   b: =0;   repeat  writeln('квадрат числа ',a,' = ',sqr(a),' куб числа ',a,' = ',power(a,3));   a: =a+1+b;   b: =b+1;   until b> 9  end.
Fox332
Fox332
4,5(41 оценок)

Объяснение:

33 байта содержит 264 бит информации

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