Предмет: Информатика, автор: eldersheng

Написать программу для решения задачи.

Вводятся две строки символов. Определить, которая из них больше.
вот пример:
Var _______:string;

Begin

  writeln('_________________');

  readln(_____);

  writeln('_________________');

  readln(_____);

  if S1>S2
then


     writeln(' ______ больше')

  else

      if _____
then


           writeln('
______
больше ')


      else

           writeln('одинаковые')

  readln;

End.

Ответы

Автор ответа: WARLORD005
0
Можно даже немного короче:
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.

Проверял - всё работает, ошибок нет.
Похожие вопросы
Предмет: География, автор: Аноним
Предмет: Алгебра, автор: SnottyJo