Статистика
Всего в нашей базе более 4 327 663 вопросов и 6 445 978 ответов!

Решить в Pascal. Перед тем как выкладывать ответ проверьте свое решение.

10-11 класс

Skakova0208 02 июля 2013 г., 13:47:44 (10 лет назад)
Рейтинг
+ 0 -
0 Жалоба
+ 0 -
2002anna2
02 июля 2013 г., 15:42:15 (10 лет назад)


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]. Массив данных хранится в
файле. Удалить из него все элементы, которые состоят из одинаковых цифр.
Результат записать в другой файл.

Помогите решить, очень нужно... 2. Составьте блок-схему алгоритма(её не надо) и программу вычисления в массиве A(10) количества положительных

элементов.
3. Составьте программу заполнения массива, не используя клавиатуру, числами: 1, 3, 5, 7, 9, 11, 13, 15, 17, 19.

Читайте также

Дан двумерный массив m*n , заполните его числами, найти наибольший элемент в каждой строке, вывести его значения и координаты.

Решить в Pascal. Перед тем как выкладывать ответ, проверьте решение.

ПОМОГИИИИТЕЕЕЕ!!!!!!!ОООЧЕНЬ СРООЧНОО!!! Тема Компьютерное моделирование. Предложите этапы построения компьютерной модели для решения одной из следующих

задач.Задача решается в Pascal ABC 1.В искусственный водоём запустили 100000 рыб. Ежегодно из водоёма забирают 12% рыб.Естественный прирост составляет 20%.Какое кол-во рыб будет в водоёме через 8 лет??

Объясните по подробнее как решать такие задания 1)Для какого из указанных значений числа X истинно высказывание

((X < 5)→(X < 3)) Ù ((X < 2)→(X < 1))

1) 1 2) 2 3) 3 4) 4

2)Для какого имени истинно высказывание:

¬ (Первая буква имени гласная → Четвертая буква имени согласная)?

1) ЕЛЕНА 2) ВАДИМ 3) АНТОН 4) ФЕДОР

Всем привет. Помогите, пожалуйста, разобраться с этой задачей. Как ее решить в Pascal.

"Вычислить сумму элементов строки, проходящей через первый нулевой элемент побочной диагонали матрицы Q(30,30)."



Вы находитесь на странице вопроса "Решить в Pascal. Перед тем как выкладывать ответ проверьте свое решение.", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.