Program n; var i: integer; st: string; begin writeln('Введите строку'); readln(st); for i:=1 to length(st) do begin if st[i]='е' then st[i]:='и'; if st[i]='а' then st[i]:='о'; end; writeln(st); end.
Program time; uses crt; var HH,MM,HP,MP,HR,MR,ost:integer; begin write('Vvedite vremya otvravki : '); read(HH); read(MM); writeln; write('vvedite prodolgitelnost poleta: '); read(hp); read(mp); clrscr; writeln('Otpravleniye somolyata v ',hh,':',mm);
MR:=mm+mp; if mr>59 then begin ost:=mr mod 60; MR:=ost; HR:=HR+(MR div 60); end;
HR:=HH+HP; if hr>24 then hr:=hr - 24;
Writeln; Write('Pributie samolyota v ', HR,':',MR); writeln;
end.
данный можно сразу вводить через пробел... например 12 10 жмем ентер и вводим другие 14 55 и ентер и все прекрасно посчитает. тут опечатка...не совсем правильно считает... подожди исправлю
var
i: integer;
st: string;
begin
writeln('Введите строку');
readln(st);
for i:=1 to length(st) do begin
if st[i]='е' then st[i]:='и';
if st[i]='а' then st[i]:='о';
end;
writeln(st);
end.