Напишите программу которая будет сколько букв в написанном предложении пробелы не должен читать делать в паскале
Напишите программу которая будет сколько букв в написанном предложении пробелы не должен читать делать в паскале
Гость
Ответ(ы) на вопрос:
Гость//Pascal ABC.NET v3.1 сборка 1172
Var
s:string;
i,k:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]<>' ' then inc(k);
writeln(k);
end.
Пример ввода:
Очень много мячей
Пример вывода:
15
Не нашли ответ?
Похожие вопросы