Нужно написать программу в Pascal.
Даны названия 3 городов (любых). Вывести на экран самое длинное и самое короткое название.

Пример программы на Pascal:

program Cities;
var
  s1, s2, s3, maxName, minName: string;
begin
  writeln('Введите названия трех городов:');
  readln(s1);
  readln(s2);
  readln(s3);

  maxName := s1;
  minName := s1;

  if length(s2) > length(maxName) then maxName := s2;
  if length(s3) > length(maxName) then maxName := s3;

  if length(s2) < length(minName) then minName := s2;
  if length(s3) < length(minName) then minName := s3;

  writeln('Самое длинное название: ', maxName);
  writeln('Самое короткое название: ', minName);
end.

Функция length считает количество символов в строке.

0 0 Пожаловаться