Паскаль написать программу для решения . дана строка, содержащая текст на языке, и некоторая буква. подсчитать, сколько слов начинается с указанной буквы.

262

488

Посмотреть ответы 2

Ответы на вопрос:

кира6371929648

Информатика

4,7(24 оценок)

//pascalabc.net 3.4.2

begin

var str : = readstring('введите строку: ').towords;

var ch : = readchar('введите букву: ');

str.where(x -> pos(lowercase(ch), lowercase(x)) = 1).count.print;

end.

Ромчик15

Информатика

4,4(35 оценок)

Var i: integer; a: array[1..10] of integer; begin write('исходный массив: '); for i : = 1 to 10 do begin a[i] : = random(20); write(a[i]: 3); if(a[i] < 10) then a[i] : = a[i] * 3; end; write(#10'конечный массив: '); for i : = 1 to 10 do write(a[i]: 3); end.