Question

Написать программу для решения задачи. Вводятся две строки символов. Определить, которая из них больше.вот пример:Var _______:stНаписать программу для решения задачи.

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

Begin

writeln('_________________');

readln(_____);

writeln('_________________');

readln(_____);

if S1>S2
then

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

else

if _____
then

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

else

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

readln;

End.

Answer 1

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

Проверял - всё работает, ошибок нет.