Написать в паскаль. Вводится две строки. Написать пользовательскую функцию которая возвращает строку 'da' если количество символов в этих строках одинаково и возвращает 'net' если неодинаково.
Написать в паскаль. Вводится две строки. Написать пользовательскую функцию которая возвращает строку 'da' если количество символов в этих строках одинаково и возвращает 'net' если неодинаково.
Ответ(ы) на вопрос:
Гость
function p(s1,s2:string):string;
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.
Не нашли ответ?
Похожие вопросы