) j:=0; for i:=1 to Length(nn) do begin m:=nn[i]; - вопрос №2026967201 от Ошлиарлт 17.10.2021 20:30

Question

Информатика: ) j:=0; for i:=1 to Length(nn) do begin m:=nn[i]; if (m in n) then inc(j); end; writeln ( Количество элементов строки S в J = , j); readln (f1); writeln (f2, Количество элементов строки S в J = ,j); close(f1); close(f2);end.

Ошлиарлт · Answer

загрузи картинку на которой это всё написано...

) j:=0; for i:=1 to Length(nn) do begin m:=nn[i]; if (m in n) then inc(j); end; writeln ('Количество элементов строки S в J = ', j); readln (f1); writeln (f2,'Количество элементов строки S в J =' ,j); close(f1); close(f2);end.

)

j:=0;

for i:=1 to Length(nn) do begin

m:=nn[i];

if (m in n) then inc(j);

end;

writeln ('Количество элементов строки S в J = ', j);

readln (f1);

writeln (f2,'Количество элементов строки S в J =' ,j);

close(f1);

close(f2);

end.