Запишите в тетрадь программу без ошибок. Исправьте - вопрос №11333525 от Tosya111 14.09.2021 16:25

Question

Информатика: Запишите в тетрадь программу без ошибок. Исправьте ошибки в программе var t: string; k,i: interger; begin; redaln (t) k:=0 for i:=1 to lenthg(t) do if copy(t,i,1)=‘н’ then k:=k+1; writenl (‘количество букв н= ’, k) readln; end

Tosya111 · Answer

var s:string; k, i:integer;beginreadln(t);k:=0;  for i:=1 to N do lenthg(t)if copy(t,i,1)= . then k:=k+1;writeln ( количество букв= ,k);readln;end.Объяснение:...