В Турбо Паскале У введеному рядку підрахувати кількість слів…

Question

В Турбо Паскале У введеному рядку підрахувати кількість слів, що однаково починаються ізакінчуються

Answer 1

93

corsair

28 февраля 2023

var count: integer; c,ch: char; begin writeln ('введите символ '); readln (c); writeln ('введите строку '); count: =0; repeat read (ch); if ch=c then inc (count); until ord (ch)=13; writeln ('кол-во повторений ',count); readln; readlnend.

пользователи выбрали этот ответ лучшим

комментировать

в избранное ссылка отблагодарить

Email:
Пароль:
	забыли пароль?

Логин:
Email:
Пароль: