Регистрация
илья1967
12.01.2022 18:48
Информатика
Есть ответ 👍

Заполни пропуски в программе. Вывод на экран кубов чисел от 13 до 4. var :integer; begin for n:= downto do writeln (n*n*n); readln; end.

154
341
Посмотреть ответы 2

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

KrashRoz
KrashRoz
4,4(8 оценок)

var n: integer;  

begin  

for n:= 13 downto 4 do

 writeln(n*n*n);  

end.

RinOkumura99
RinOkumura99
4,6(11 оценок)
Var   a: integer;   s: longint; begin   s : = 0;   a : = -32768;   while a < > 0 do   begin       readln(a);       if a < > 0 then           if a mod 4 = 0 then               if a mod 10 = 6 then s : = s + a   end;   writeln('сумма равна ', s) end.

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