Найти произведение натуральных чисел от F до 11 (F<11)
Составить программу.
Язык Pascal
Ответы на вопрос
Ответил estengseant
0
var f,i,x: Integer;
begin
writeln('введите F:');
readln(f);
x:=1;
for i:=f to 10 do x:=i*x;
writeln('Вывод: ',x);
end.
begin
writeln('введите F:');
readln(f);
x:=1;
for i:=f to 10 do x:=i*x;
writeln('Вывод: ',x);
end.
Ответил frigate19
0
Ещё можете что-нибудь решить?
Ответил frigate19
0
Можешь помочь?
Новые вопросы