Написать программу для решения задачи. Вводятся две строки символов. Определить, которая из них больше.вот пример:Var _______:string; Begin writeln('_________________'); readln(_____); writeln('_________________'); readln(_...
Написать программу для решения задачи.
Вводятся две строки символов. Определить, которая из них больше.
вот пример:
Var _______:string;
Begin
writeln('_________________');
readln(_____);
writeln('_________________');
readln(_____);
if S1>S2
then
writeln(' ______ больше')
else
if _____
then
writeln('
______ больше ')
else
writeln('одинаковые')
readln;
End.
Гость
Ответ(ы) на вопрос:
ГостьМожно даже немного короче:
var:
s1,s2:string;
begin
writeln('Vvedite pervyu stroky');
readln(s1);
writeln('Vvedite vtoryu stroky');
readln(s2);
if (Length(s1))>(Length(s2)) then
writeln('Pervaya stroka bolshe,chem vtoraya')
else
writeln('Vtoraya stroka bolshe,chem pervaya');
readln;
end.
Проверял - всё работает, ошибок нет.
Не нашли ответ?
Похожие вопросы