Регистрация
jak15
27.11.2020 06:50
Информатика
Есть ответ 👍

Решите паскали,вариант 5beginwritelnend.

185
263
Посмотреть ответы 1

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

kisuli1
kisuli1
4,4(76 оценок)

var

  s1, s2: string;

  i, n1, n2: integer;

 

begin

  writeln('введите первое слово');

  readln(s1);

  writeln('введите второе слово');

  readln(s2);

  writeln('объединение слов:   ', s1 + s2);

  writeln('длина первого слова:   ', length(s1));

  writeln('длина второго слова:   ', length(s2));

  for i: = 1 to length(s1) do

    if s1[i] = 'а' then inc(n1);

  for i: = 1 to length(s2) do 

    if s2[i] = 'a' then inc(n2);

  writeln('в первом слове ', n1, ' букв "а" ');

  writeln('во втором слове ', n2, ' букв "а" ');

  writeln('первые 5 букв первого слова:   ', copy(s1, 1, 5));

  writeln('первые 5 букв второго слова:   ', copy(s2, 1, 5));

  delete(s1, length(s1) - 4, 5);

  delete(s2, length(s2) - 4, 5);

  writeln('результат удаления последних 5 букв первого слова:   ', s1);

  writeln('результат удаления последних 5 букв второго слова:   ', s2);

end.

   

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