Предмет: Информатика,
автор: bob444
СОСТАВИТЬ ПРОГРАММУ ВЫЧИСЛЕНИЯ И ВЫВОДА НА ЭКРАН КУБОВ ВСЕХ ЦЕЛЫХ ЧИСЕЛ ОТ -5 ДО 12
ПОМОГИТЕ ПЛИЗ)
Ответы
Автор ответа:
0
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.
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.
Интересные вопросы
Предмет: Математика,
автор: kristinabannikova30
Предмет: История,
автор: aselya13052009
Предмет: Химия,
автор: sdfew2efvgf
Предмет: Химия,
автор: Panda14TV