В таблице Dat хранятся данные о численности учеников в классах (Dat[1] – число учеников в первом классе, - id1275540720201227 от D1manch1k 27.12.2020 10:12

Question

Информатика: В таблице Dat хранятся данные о численности учеников в классах (Dat[1] – число учеников в первом классе, Dat[2] – во втором и т. д.). Определите, какое число будет напечатано в результате работы следующей программы. Целтаб Dat [1:11] цел k, m Dat[1] := 21; Dat[2] := 23 Dat[3] := 20; Dat[4] := 19 Dat[5] := 25; Dat[6] := 22 Dat[7] := 23; Dat[8] := 21 Dat[9] := 22; Dat[10] := 29 Dat[11] := 17 m := 0 нц для k от 1 до 11 если Dat[k] 22 то ш := ш + 1 все кц вывод ш

D1manch1k · Accepted Answer

В программе предполагается, что слова отделяются друг от друга одним пробелом, знаков препинания нет.
const m=3;
var s:string;
sl:array[1..m] of string=('ЗНАЧИТ', 'ВОТ', 'АВТОМОБИЛЬ');
n:array[1..m] of integer;
i:integer;
procedure pr(s1,s2:string; var k:integer);
var l,p:integer;
begin
s1:=' '+s1+' ';
l:=length(s2);
k:=0;
p:=pos(s2,s1);
while p>0 do
begin
if (s1[p-1]=' ')and(s1[p+l]=' ') then k:=k+1;
delete(s1,1,p+l);
p:=pos(s2,s1);
end;
end;
begin
writeln('Введите текст:');
readln(s);
for i:=1 to m do
begin
pr(s,sl[i],n[i]);
writeln(sl[i],' - ',n[i]);
end;
end.

Пример (слов меньше 40):
Введите текст:
ЗНАЧИТ ТАК ВОТ АВТОМОБИЛЬ РАЗ ВОТ АВТОМОБИЛЬ ДВА ВОТ АВТОМОБИЛЬ ТРИ
ЗНАЧИТ - 1
ВОТ - 3
АВТОМОБИЛЬ - 3

MOGZ ответил