Написать в паскаль. Вводится две строки. Написать пользовательскую функцию которая возвращает строку 'da' если количество символов в этих строках одинаково и возвращает 'net' если неодинаково.
Copyright © 2024 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
begin
if length(s1)=length(s2) then p:='da' else
p:='net'
end;
Это функция. Если вся программа заключается лишь в нахождении da или net, тогда будет так:
var s1,s2:string;
function p(s1,s2:string):string;
begin
if length(s1)=length(s2) then p:='da' else p:='net'
end;
begin
readln(s1);
readln(s2);
s1:=p(s1,s2);
write(s1);
end.