Войти Регистрация Спроси ai-bota

На паскале: посчитать кол-во пробелов в тексте.

Ответ:

kvarkpro

03.07.2020 01:26

Var a:string;
i,b:integer;
begin
read(a);
b:=0;
for i:=1 to length(a) do
if a[i]=' ' then b+=1;
writeln(b);
end.

0,0(0 оценок)

Популярные вопросы: Информатика

kris129630

06.05.2020 17:22

Вася учится в школе. недавно учитель записал на доске строку из строчных латинских букв и цифр, а вася переписал эту строку в тетрадку. придя домой, вася столкнулся...

Lunadiana

01.02.2022 09:54

Решите по python-junior(python составить программу, 1. дано целое число, не меньшее 2. выведите его наименьший натуральный делитель, отличный от 1. 2. в первый день...

Sergey2003456

13.11.2020 11:13

Для тех, кто шарит в информатике: рассчитайте объем памяти, необходимой для представления 3-ёх минутного фильма на экране монитора с пространственным разрешением 1280...

oreo228123

27.05.2021 03:50

Автоматическое устройство осуществило перекодировку сообщения из юникод (i1=16 бит) в кои 8. при этом объём стал 60. найдите v1...

Allison5

27.05.2021 03:50

Дано число а=66(в восьмеричной) и b=38(в шестнадцатиричной). определить число с такое, чтобы выполнялось условие а...

youlia86

27.05.2021 03:50

Указать через запятую в порядке возрастания все основания систем счисления, в которых запись десятичного числа 37 заканчивается на 5....

AliswandeChechir

09.12.2021 02:06

Cи c++ дана действительная квадратная матрица. найти наибольший элемент среди элементов главной и побочной диагонали....

VadimButs

09.12.2021 02:06

Pascal. напишите программу ,которая из заданной строки удаляет числа....

2345metal6789

14.02.2022 14:48

Pascal.в данной строке подсчитать количество слов из трех букв....

бакир3

14.02.2022 14:48

Найти графическое решение системы уравнений, которая соответствует вашему варианту. ответ записать с точностью до 0,1. excel 15x-7y=8 20x+5y=-9...

Полный доступ

Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку