Написать программу на паскале в которой введенное предложение будет разделяться на отдельные слова. Вводи A. разделяем предложения на слова присваивая
5-9 класс
|
их к какой либо переменной
const
pat = ':, .!?';
var
p : string;
a : array [1..100] of string;
c, i : integer;
begin
readln(p); //предложение
a[c + 1] := '';
for i := 1 to length(p) do
begin
if pos(p[i], pat) = 0 then
a[c + 1] := a[c + 1] + p[i]
else
begin
if length(a[c + 1])>0 then inc (c);
a[c + 1] := '';
end;
end;
for i := 1 to c do
begin
writeln (a[i]);
end;
readln;
end.
Другие вопросы из категории
Вычислите площадь круга и длину окружности по исходным данным.
взрослого или двоих детей. Взрослые и дети умеют грести.
Я ,конечно,знаю,что не совсем по теме,но если вы знаете информатику,то помогите)
Где можно скачать:Support\Updates...(это обновление на игру симсов)
Читайте также
программу на Паскале, в которой вычисляются четыре величины: средние температуры зимних месяцев, весенних месяцев, летних и осенних. 2)Вы посетили магазин и купили 10 видов товара. В таблицу T [1..10] записали количество купленного товара каждого вида. В таблицу C [1..10] записали цену единицы каждого вида товара соответственно. Составить программу на Паскале вычисления общей стоимости всех покупок.
Напишите программу, которая в последовательности целых чисел
вычисляет сумму всех чисел, которые кратны 6 или 11. Программа получает на вход
целые числа, количество введённых чисел неизвестно, последовательность чисел
заканчивается числом 0 (0 – признак окончания ввода, не входит
в последовательность).
Количество чисел не превышает 1000. Введённые числа по
модулю не превышают 30 000.
Программа должна вывести одно число: сумму всех чисел,
которые кратны 6 или 11.
Нужно написать программу, которая выводит на экран все двухзначные числа, делящиеся на 3 или на 5 (использовать операции целочисленного деления div или mod)
read.writeln.else.to.if и тд которые сможете
Вот пример идеи для программы, в академию поступают какое то количество учеников, нужно написать сколько учеников сдали документы, сколько пришли на экзамен, и сколько учеников кто прошло и не прошло
возможно не возможно создать программу на этой идее, тогда прделагайте свои со своими программами , пожалуйста помогите!