Даны 2 строки знаков: S1 и S2. Сравнить длины строк D1

Даны 2 строчки знаков: S1 и S2. Сопоставить длины строк D1 и D2. Узнать, которая из строк длиннее, и выдать извещенье на экран: строчка S1 длиннее либо строчка S2 длиннее.НУЖЕН ПАСКАЛЬ

Задать свой вопрос
1 ответ
Uses crt;
var s1, s2: String;
d1, d2: Integer;
begin
readln(s1, s2);
d1 := length(s1);
d2 := length(s2);
if d1 gt; d2 then writeln('Строчка ', s1, ' длиннее') else writeln('Строчка ', s2, ' длиннее');
end.
Камерзанов Валерка
byte vj;yj
Leonid Zeikin
можно и поглядите ещё задачу до этого
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт