Регистрация
DENCHIK23371
10.05.2022 11:00
Информатика
Есть ответ 👍

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

236
259
Посмотреть ответы 2

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

ТашаФедоренко
ТашаФедоренко
4,5(70 оценок)
Var a, i: integer; begin       a : = 1;       for i : = 1 to 10 do       begin           writeln(a, ' => ', sqr(a), '   ', a * a * a);           a : = a + i;       end; end.
ilya429
ilya429
4,6(59 оценок)
Убрал лишние блоки и точку с запятой. if k11 = k12 then if k12 = k13 then if k12 = 'х ' then goto win1 else goto win2 else goto showp1;

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