Составить программу вычисления и вывода на экран - вопрос №56748655 от Nikita67566 02.01.2022 00:20

Question

Информатика: Составить программу вычисления и вывода на экран кубов всех целых чисел от -5 до 12 )

Nikita67566 · Answer

var -5,12,i:integer;
function fact(j:integer):longint;
begin if j=1 then fact:=1 else fact:=j*fact(j-1);
end;
begin readln(12,-5);
for i:=-5 to 12 do if i mod 2 =0 then write(fact(i),' ');
writeln;
end.