Регистрация
sobkevichbozhep08t40
01.12.2022 10:37
Информатика
Есть ответ 👍

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

165
245
Посмотреть ответы 2

Ответы на вопрос:

FrostMorne
FrostMorne
4,7(49 оценок)
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.
betmurzaev2015
betmurzaev2015
4,8(61 оценок)

ответ

2,0/5

2

yasadc

1)uses crt;

const m=5;

n=5;

var a:array[1..m,1..n] of integer;

b:array[1..m] of integer;

i,max,min,j,k,p:integer;

begin

randomize;

for i:=1 to m do

for j:=1 to n do

a[i,j]:=random(20);

min:=20;

max:=0;

for i:=1 to m do

begin

for j:=1 to n do

write(a[i,j]:3);

writeln;

end;

writeln;

k:=1;

repeat

for i:=k to k do

for j:=1 to n do

begin

if (a[i,j]<min) then begin min:=a[i,j]; b[k]:=a[i,j]; end;

end;

inc(k);

min:=20;

until k>n;

for p:=1 to m do

if (b[p]>max) then max:=b[p];

writeln(max);

end.

Объяснение:

Популярно: Информатика