1)Даны две строки. Вывести на экран строку большей длины. 2)Дана строка символов. Определить, есть ли в ней хотя бы одна буква «с». нужно написать программы в паскаль, с использованием if then else решите пожалуйста,СРОЧНО НАДО

1)Даны две строки. Вывести на экран строку большей длины. 2)Дана строка символов. Определить, есть ли в ней хотя бы одна буква «с». нужно написать программы в паскаль, с использованием if then else решите пожалуйста,СРОЧНО НАДО
Гость
Ответ(ы) на вопрос:
Гость
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin   var s1:=ReadlnString('1>');   var s2:=ReadlnString('2>');   if s1.Length>s2.Length then Writeln(s1) else Writeln(s2) end. // PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin   var s:=ReadlnString('>');   // Ниже в Pos указана русская "с" !!!   if Pos('с',s)>0 then Writeln('Буква с есть')   else Writeln('Буквы с нет') end.
Не нашли ответ?
Ответить на вопрос
Похожие вопросы