Burigas
4 год назад
найти произведение всех натуральных чисел от 1 до 100 на языке pascal
ОТВЕТЫ
Hood Hugo
Oct 24, 2020
На турбо паскале невозможно сделать этого, т.к. идет переполнение возможного лимита данных(real, longint). В идеале это должно выглядеть так:
var
a:real;
i:byte;
begin
a:=1;
for i:=1 to 100 do begin
a:=a*i;
end;
writeln(a);
end.
var
a:real;
i:byte;
begin
a:=1;
for i:=1 to 100 do begin
a:=a*i;
end;
writeln(a);
end.
716
Смежные вопросы: