Предмет: Информатика,
автор: eldersheng
Написать программу для решения задачи.
Вводятся две строки символов. Определить, которая из них больше.
вот пример:
Var _______:string;
Begin
writeln('_________________');
readln(_____);
writeln('_________________');
readln(_____);
if S1>S2
then
writeln(' ______ больше')
else
if _____
then
writeln('
______ больше ')
else
writeln('одинаковые')
readln;
End.
Ответы
Автор ответа:
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.
Проверял - всё работает, ошибок нет.
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.
Проверял - всё работает, ошибок нет.
Похожие вопросы
Предмет: География,
автор: Аноним
Предмет: Психология,
автор: dianahakimova47
Предмет: Химия,
автор: apilatt
Предмет: Алгебра,
автор: SnottyJo