Опубликовано 10.06.2017 по предмету Информатика от Гость >> <<

Программа в Pascal
1.Написать программу которая определяет сколько раз в строке,введенной с клавиатуры, встречается буква м.
2.написать программу которая удаляет из строки, введенной с клавиатуры,все буквы о

Ответ оставил Гость

1. Program prog;
uses crt;
var s: string;
    k,i: integer;   
begin;
write(S = );
readln(s);
for i:=1 to length(s) do
if (s[i]=м) or (s[i]=М) then k:=k+1;
writeln(k);
end.


2.Program prog;
uses crt;
var
s,n:string;
i:integer;
begin
write(S = );
readln(s) ;
n:=;
for i:=1 to length(s) do
if (s[i]<>о) and (s[i]<>О) then
 n:=n+s[i];
 s:=n;
 writeln (s);
end.