сервис вопросов и ответовВводится n строка, найти кол-во пробелов в ней. Pascal ABC
5-9 класс|
|
Elenzub
11 апр. 2014 г., 3:10:52 (10 лет назад)
Egor10
11 апр. 2014 г., 4:52:04 (10 лет назад)
var n:string; a:integer;
procedure chet(n:string;var a:integer);
begin
while pos(' ',n)<>0 do //пока в строке есть пробелы
begin
a:=a+1; //к счетчику пробелов + 1
delete(n,pos('',n),1); //удалить текущий пробел
end;
end;
begin
readln(n); // вводим строку
a:=0; //обнуляем счетчик
chet(n,a) //считаем пробелы
writeln(a); //выводим кол-во пробелов
end.
Ответить
Другие вопросы из категории
через паскаль 1 ввести 3 числа,вывести наименьшее 2 ввести номер месяца ,вывести название месяца 3 ввести 5 чисел,вывести в
порядке убывания
Кегль, гарнитура, начертание - речь идет о...
А) таблицах, Б) абзацах, В) шифрах, Г) шрифтах.
ответьте пожалуйста, нужно сегодня!
В поезде 8 одинаковых вагонов по 62 посадочных места в каждом вагоне. автоматизированная система учета пассажиров кодирует каждый билет с
использованием минимально возможного количества бит, одинакового для каждого билета. Определите информационный объем хранимой информации после регистрации 128 пассажиров
Programm 1
var x,y: integer;
read l n(x)
if x<10 then y=(sqrt(x-10)+25)/3x
else wtiteln (выражение не имеет смысла)
end
1. Производительность формовочной машины - 7 тарелок в минуту. Сколько тарелок произведут N машин за T часов?
2. Составить программу удвоения большего из двух чисел.
3. Написать программу вычисления произведения всех двузначных четных чисел.
4. Определить количество двузначных натуральных чисел, сумма цифр которых равна заданному числу N.
Все в Pascal. Очень прошу помочь
Читайте также
Язык программирования Бейсик Здравствуйте. Кто может найти ошибку в моем решении задачи: "Напишите программу, которая находит кол-во
чисел, кратных 3, но не кратных 6, в последовательности заданных чисел. Программа получает на вход целые числа, кол-во введенных чисел неизвестно, последовательность чисел заканчивается числом 0 (0 - признак окончания ввода, не входит в последовательность). Кол-во чисел не превышает 1000. Введенные числа по модулю не превышают 30000."
Решение:
10 CLS
20 FOR I=1 TO 1000
30 INPUT "Введите число";A(I)
40 IF A(I)=0 THEN M=I AND 60
50 NEXT I
60 FOR I=1 TO M
70 IF A(I) MOD 3 = 0 AND A(I) MOD 6 <>0 THEN S=S+1
80 NEXT I
0 PRINT S
100 END
Заранее спасибо
1)книга содержит 130 стр. 40 строк по 50 символов в строке на каждой странице.найти информационный объем книги набранной на ПК в Кбайт(результат
округлить до десятых)
2)информационное сообщение объемом 50 байт состоит из 100 символов.найти кол-во символов в алфавите
Помогите эти задания зависят на оценку за четверть 1) Записать алгоритм распознания среди всех треугольников прямоугольные, если таковых нет
вычислить периметр.
2) Последовательно вводится N целых чисел найти кол-во равных нулю.
помогите очень нужно!
1.Какое кол-во информации получит Миша после броска кубика с 16 гранями?
2.Играя в игру "Угадай число" было получено 6 бит информации. Каково было кол-во возможных событий?
3. Маша переехала в многоэтажный дом, и сообщение о том,что она живет на 24 этаже,несет 5 бит информации.Сколько этажей в доме?
ОООЧЕНЬ НУЖНА ПОМОЩЬ!! Имеется целочисленный массив ,состоящий из 10 элементов,элементы вводятся с клавиатуры , найти:
а) кол-во элементов кратных пяти
б) кол-во двузначных отрицательных чисел
P.S. это должны быть две задачи
Вы находитесь на странице вопроса "Вводится n строка, найти кол-во пробелов в ней. Pascal ABC", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.