Решить в Pascal. Перед тем как выкладывать ответ проверьте свое решение.
10-11 класс
|
program tref;
var a,i:integer;s:string;b:char;
begin
readln(s);
readln(b);
for i:=1 to length(s) do
if(s[i]=b)then a:=a+1;
writeln(a);y
end.
Сначала вводим строку,потом символ
Другие вопросы из категории
случайным образом числами из промежутка [-40, 30]. Массив данных хранится в
файле. Удалить из него все элементы, которые состоят из одинаковых цифр.
Результат записать в другой файл.
элементов.
3. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.
Читайте также
Решить в Pascal. Перед тем как выкладывать ответ, проверьте решение.
задач.Задача решается в Pascal ABC 1.В искусственный водоём запустили 100000 рыб. Ежегодно из водоёма забирают 12% рыб.Естественный прирост составляет 20%.Какое кол-во рыб будет в водоёме через 8 лет??
((X < 5)→(X < 3)) Ù ((X < 2)→(X < 1))
1) 1 2) 2 3) 3 4) 4
2)Для какого имени истинно высказывание:
¬ (Первая буква имени гласная → Четвертая буква имени согласная)?
1) ЕЛЕНА 2) ВАДИМ 3) АНТОН 4) ФЕДОР
"Вычислить сумму элементов строки, проходящей через первый нулевой элемент побочной диагонали матрицы Q(30,30)."