Составте программу на языке программирования паскаль: Подсчитать количество…

Question

79

Составте программу на языке программирования паскаль: Подсчитать количество букв 'а' в заданном тексте

категория: информатика

ответить

в избранное ссылка

Знаете ответ?

caf-lucky · Accepted Answer

68

caf-lucky

04 апреля 2023

var n,i: integer; Begin read (n); for i: =2 to n-1 do if n mod i=0 then writeln ('No'); End. var n,i: integer; s: string; Begin read (s); for i: =1 to length (s) do if s[i]="a" then n: =n+1; writeln (n); End. Скорее всего так

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

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

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

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