Написать в паскаль. Вводится две строчки. Написать пользовательскую функцию которая отдаёт

Написать в паскаль. Вводится две строчки. Написать пользовательскую функцию которая возвращает строчку 39;da39; если количество символов в этих строчках идиентично и отдаёт 39;net39; если неодинаково.

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

Для определения числа знаков в строке применена функция length(s).

program paritet;
s1, s2: string;
begin
writeln(Введите первую строчку.);
readln(s1);
writeln(Введите первую строчку.);
readln(s2);
if length(s1) = length(s1) then writeln(da) else writeln(net)
end.

, оставишь ответ?
Имя:*
E-Mail:


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

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

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

Войти на сайт