ПОМОГИТЕ ДАЮ 25 БАЛЛОВ

Приложения:

Ответы

Ответ дал: elenaklon
0
var f,i:integer;
begin
f:=1;
for i:=1 to 6 do f:=f*i;
writeln(f)
end.
Вас заинтересует