1. Информатика
  2. Паскаль 10 класс имеется

Паскаль 10 класс имеется текст,состоящий из слов,разделенных между собой пробелом. все буквы в тексте прописные. а) заменить в предложении символ пробел на символ *

tatyanakhmelev tatyanakhmelev    1   17.06.2019 01:20    2

Ответы
seterkton seterkton  02.10.2020 03:04
Var s:string;
i:integer;
begin
 write('Введите текст: '); readln(s);
for i:=1 to length(s) do
if s[i] = ' ' then write('*') else write(s[i]);
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
marshmelloy36 marshmelloy36  01.09.2019 12:40
Найти все простые несократимые дроби,заключенные между 0 и 1,знаменатели которых не превышают 7(дробь задается двумя натр.числами-числителем и знаменателем)паскаль...
shtondin2017 shtondin2017  01.09.2019 12:30
Склавиатуры вводятся числа до первого отрицатеьного. нарисуйте блок схему и напишите программу для нахождения суммы этих чисел. pascal работа по теме (циклы) , самый большой...
gnevasheva1965 gnevasheva1965  01.09.2019 12:20
23 ! напишите программу, которая в последовательности натуральных чисел определяет количество нечетных чисел, кратных 3. программа получает на вход натуральные числа через клавиатуру,...
iobolenkov iobolenkov  01.09.2019 12:20
Перечислите через запятую двоичную запись десятичных цифр от 0 до 9...
5656grey6767 5656grey6767  01.09.2019 12:10
Взаданной произвольной строке s удалить слово, если количество букв в нём превышает заданную величину k (k вводится с клавиатуры). с . на языке pascal....
igulsinya igulsinya  01.09.2019 12:10
Заполнить массив из 10 элементов случайными числами в интервале [0,100] и подсчитать среднее значение всех элементов, которые 50 , без randomize и прочих изысков ....
mrskelet7 mrskelet7  20.05.2020 02:20
⦁ Определите, что будет напечатано в результате работы следующей программы. var s,k: integer; begin s := 0; for k := 6 to 12 do s := s + 5; writeln(s); end....
mony3 mony3  20.05.2020 02:20
⦁ Определите, что будет напечатано в результате работы следующей программы. var s,k: integer; begin s := 0; for k := 6 to 12 do s := s + 5; writeln(s); end....
Education26 Education26  20.05.2020 02:21
Блок-схемаОпределите значение переменной ж после выполнения алгоритма, заданного блоксхемой, изображенной на рисунке.x=1y=8у = 2?Нетy = y - Xx = x + 1​...
mustafina1990 mustafina1990  20.05.2020 01:41
нужно сделать то, что указанно в заданиях. Сделать нужно задания: 3, 4, 5, 6, 7, 10....

Популярные вопросы