Объяснение:
i=1
while(i<11):
if(i==1):
print(f"Факторіал {i} дорівнює 1 ")
elif(i==2):
print(f"Факторіал {i} дорівнює 2 ")
elif(i==3):
print(f"Факторіал {i} дорівнює 6 ")
elif(i==4):
print(f"Факторіал {i} дорівнює 24 ")
elif(i==5):
print(f"Факторіал {i} дорівнює 120 ")
elif(i==6):
print(f"Факторіал {i} дорівнює 720 ")
elif(i==7):
print(f"Факторіал {i} дорівнює 5040 ")
elif(i==8):
print(f"Факторіал {i} дорівнює 40360")
elif(i==9):
print(f"Факторіал {i} дорівнює 363240")
elif(i==10):
print(f"Факторіал {i} дорівнює 3632400 ")
i=i+1
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
s:=s.Replace('.','').Replace(',','');
s.Println
end.
Пример
> Раз, два, три, четыре, пять. Вышел зайчик погулять.
Раз два три четыре пять Вышел зайчик погулять
Решение, когда разных удаляемых символов может быть много
// PascalABC.NET 3.2, сборка 1353 от 27.11.2016
// Внимание! Если программа не работает, обновите версию!
begin
var s:=ReadlnString('>');
s:=s.Where(с->not(с in [',','.'])).JoinIntoString;
s.Println
end.