Программа и к ней задание - Turbo Pascal

Формулировка задачи:

Нужно сделать программу. К ней есть задания: 1) ввести две параллельные строкового типа 2) найти их длину 3) найти кол-во букв "а" в первой строке 4) получить новую строку, объединив первые две 5) вставить пробел между словами и это все в одной программе. Заранее СПАСИБО!!!

Код к задаче: «Программа и к ней задание - Turbo Pascal»

textual
Var
  s1,s2 : String;
  i,k   : Byte;
Begin
  Readln(s1);
  Readln(s2);
  k:=0;
  For i:=1 to Length(s1) do Inc(k,Ord(s1[i]='a'));
  Writeln('a = ',k);
  Writeln(Length(s1));
  Writeln(Length(s2));
  Writeln(s1+' '+s2);
end.

Нужна аналогичная работа?

Оформи быстрый заказ и узнай стоимость

6   голосов, оценка 3.500 из 5


СОХРАНИТЬ ССЫЛКУ