Напишите программу которая будет сколько букв в написанном предложении пробелы не должен читать делать в паскале

Ответ:

Королева1986

22.09.2020 13:21

//Pascal ABC.NET v3.1 сборка 1172

Var
s:string;
i,k:integer;
begin
readln(s);
for i:=1 to length(s) do
if s[i]<>' ' then inc(k);
writeln(k);
end.

Пример ввода:
Очень много мячей
Пример вывода:
15

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

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

Mokysya

25.08.2021 17:37

Как исправить ошибку в программе pascalabc? var a,b,o,h,r: integer; writeln( введите значения ); write( a= ); read(a); write( b= ); readln(b); write( ab= ); read(o); write( bc=...

sofa372

22.09.2022 03:23

Что из этого является названием операционной системы? LinuxBIOSIntel...

MAXIM3600

06.02.2020 08:58

1. Какой вид графики использован в данном изображении? 2. Назовите основной элемент данной графики? В каком формате может быть сохранено данное изображение?...

маруська62

07.04.2022 03:33

Лабораторная работа № 4. Excel 2. Создание автоматических таблиц для расчетов в Excel 1415область вводаНачальное значение по вертикали11Начальное значение по горизонтали11Шаr по...

Vakluver

22.03.2022 22:19

После нескольких лет мирной жизни, вдруг случилась беда. Медлить нечего, царь к Востоку войско шлет, только кто его ведет? Выбор встал пред 6 воинами. Им надо выбрать Воеводу, Главного...

olesasumakova8ozf25j

21.02.2020 21:46

Нужна с задачей python Учительница задала школьникам сделать проект, за который можно получить от 3 до После чего она предложила им разделить эти на три оценки, каждая от 1 до 5....

asdfghjkl6tygb

23.07.2022 21:27

Книга содержит 149 страниц. На каждой странице 35 строк. В каждой строке 58 символов (включая пробелы). Найти информационный объём текста, считая, что каждый символ кодируется одним...

valeriyanikiti

24.01.2020 19:08

Python. Составить программу, определяющую принадлежит ли точка с координатами (x; y) заштрихованной части плоскости. Координаты точки ввести с клавиатуры...

Сникерс11

25.01.2023 03:34

А) сырым мен алмас белтірмеге тартылды . бүгін сырым 15 рет , ал алмас одан 4рет кем тартылды.алмас бүгін белтірмеге неше рет тартылды? ә) сырым белтірмеге 15 рет тартылды,бұл алмасқа...

Nastya6376

25.02.2021 13:56

Екімүшенің толық квадратын айырып, берілген f(x) функция-ларының графигін салыңдар 11) f(x) = 2х2 + 2x – 4; 2) f(x) = 3х2 -х – 5; 3) f(x) = 4х2 – х – 2....

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

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