Составте программу на языке программирования паскаль: подсчитать количество букв ''а'' в заданном тексте
163
319
Ответы на вопрос:
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.
скорее всего так
Тут два варианта: 1) есть зеленый и красный цвета 2) есть зеленый, желтый и красный цвета вспоминаем формулу где n - мощность алфавита (в нашем случае количество цветов), а i - количество информации применяем для наших вариантов 1) если два цвета, то n=2, следовательно i=1 2) если три цвета, то n=3, следовательно i=
Популярно: Информатика
-
pikachu7bitch01.04.2022 11:01
-
DarknEssDk1128.02.2020 23:59
-
moonlightbiebs1303.06.2023 10:04
-
YOP5628.01.2021 19:26
-
дира305.01.2020 16:34
-
marijamz201622.12.2022 07:28
-
VanessaQueen28.06.2020 03:22
-
Nier06.10.2022 04:39
-
Leska711.12.2020 23:58
-
GretaD25.06.2023 12:59