Найти произведение натуральных чисел от f до 11 (f< 11) составить программу. язык pascal

margaritazaqar margaritazaqar    1   30.09.2019 19:50    0

Ответы
AlexFireStreamGun AlexFireStreamGun  09.10.2020 06:11
Var f,i,x: Integer;
begin
writeln('введите F:');
readln(f);
x:=1;
for i:=f to 10 do x:=i*x;
writeln('Вывод: ',x);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика