var s:string; i:integer; begin writeln('Введите строку:'); readln(s); repeat i:=pos('е',s); if i>0 then begin delete(s,i,1); insert('и',s,i); end; until i=0; writeln(s); end.
Program fakt; var n,i,z:integer; begin readln(n); z:=1; for i:=2 to n do z:=z*i; writeln(z); end.
Если программу написать так, то максимальный факториал, которой мы сможем вычислить - 12. Можно integer изменить на real, тогда чуть больше сможем вычислить. Так же можно вычислить через массив, тогда где-то 3000 мы сможем получить.
Если же ввести больше 12 в этой программе, то получится переполнение переменой, из-за чего число пойдёт "по кругу". Т.е. мы получим не 3 000 000 000, а -1 000 000 000, т.к. максимальное число у integer - примерно 2 000 000 000
в программе 'e' печатайте по-русски
var
s:string;
i:integer;
begin
writeln('Введите строку:');
readln(s);
repeat
i:=pos('е',s);
if i>0 then
begin
delete(s,i,1);
insert('и',s,i);
end;
until i=0;
writeln(s);
end.