Запишите в тетрадь программу без ошибок. Исправьте ошибки в программе var t: string;...

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

Answer 1

Ответ:

var s:string; k, i:integer;

begin

readln(t);

k:=0;  

for i:=1 to N do lenthg(t)

if copy(t,i,1)='.' then

k:=k+1;

writeln ('количество букв=',k);

readln;

end.

Объяснение:

Comments

можете еще помочь пожалуйста