Составте программу ,которая предлагает ввести с клавиатуры две строки s и t и вывод
Составте программу ,которая предлагает ввести с клавиатуры две строки s и t и выводит на экран наиболее длинную строку
Ответ(ы) на вопрос:
Var
s1,s2: string ;
d1,d2 : integer;
begin
writeln ('1 stroka');
read (s1);
writeln ('2 stroka');
read (s2);
d1:=length(s1);
d2:=length(s2);
if d1>d2 then writeln (s1)
else
writeln (s2);
end.
Не нашли ответ?
Похожие вопросы