Помогите пожалуйстасделайте так чтоб если длинна фамилий схожа чтоб выводилась не

Помогите пожалуйста
сделайте так чтоб если длинна фамилий схожа чтоб выводилась не про одинаковую длинну без лишнего
program poc;
var a,b:string;
c,d: integer;
begin
writeln ('Введите первую фамилию');
readln (a);
writeln ('Введите торую фамилию');
readln (b);
c:= length (a);
d:=length(b);
if (cgt;d) then writeln ('Первая фамилия длинее') else writeln ('Втарая фамилия длинее');
if (c=d)then writeln ('Длинна фамилий оденакова');

end.

Задать свой вопрос
1 ответ

if(c==d) then writeln("Твой текст");

Евгений
всёравно вводит не так
Кира Ивашишина
Скоре всего компилятор считает, что если с не больше d, то оно, либо одинаково либо больше потому убери else. Замени его if (d>c) then writeln("Твой текст");
Мирослава Мешкова
И да сделай, что я написал выше
, оставишь ответ?
Имя:*
E-Mail:


Последние вопросы

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

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

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

Войти на сайт