Паскаль простая задача

Простая задача по паскалю. «из 3 произвольных слов вывести на экран слово с минимальной длинной». Извините я не программист, но наше дебильное образование… И зачем мне это нужно?

Ответы

program m;
var
a1,a2,a3: String;
i1,i2,i3: Integer;
begin
readln(a1);
readln(a2);
readln(a3);
i1:=Length(a1);
i2:=Length(a2);
i3:=Length(a3);
if i2<i1 then
begin
  i1:=i2;
  a1:=a2
end;
if i3<i1 then
  a1:=a3;
writeln(a1);
readln(a1);
end.

Интересно, есть причины почему люди не отказываются от «такого» образования?

10.03.12

Елена Васильевна

Читать ответы

Виктор Щебетун

Читать ответы

Карина

Читать ответы
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store