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