Question

Помогите написать программы в Паскаль срочноооооо.​

Answer 1

Ответ:

program Strings;

var

 A, B: string;

begin

 Write ('Введите две строки: ');

 ReadLn (A);

 ReadLn (B);

 if A = B then begin

   WriteLn ('Строки равны.');

 end else if A < B then begin

   WriteLn ('Строки не равны.');

   WriteLn (A);

   WriteLn (B);

 end else begin

   WriteLn ('Строки не равны.');

   WriteLn (B);

   WriteLn (A);

 end;

 ReadLn;

end.

program Symbol;

var

 C: Char;

begin

 Write ('Введите символ: ');

 ReadLn (C);

 WriteLn ('Следующий символ: ', Chr (Ord (C) + 1));

 ReadLn;

end.

program CountC;

var

 s: string;

 i, c: Integer;

 a: Set of Char;

begin

 Write ('Введите строку: ');

 ReadLn (s);

 a := ['a', 'A'];

 c := 0;

 for i := 1 to Length (s) do begin

   if s [i] in a then

     Inc (c);

 end;

 WriteLn ('Количество латинских "a", "A" = ', c);

 ReadLn;

end.

program CountC;

var

 s: string;

 i, c: Integer;

 a: Set of Char;

begin

 Write ('Введите строку: ');

 ReadLn (s);

 a := ['a', 'e', 'i', 'o', 'u', 'A', 'E', 'I', 'O', 'U'];

 c := 0;

 for i := 1 to Length (s) do begin

   if s [i] in a then

     Inc (c);

 end;

 WriteLn ('Количество гласных латинских букв = ', c);

 ReadLn;

end.