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

Простая задача по паскалю. «из 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
Рекомендуем личную консультацию

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

Сейчас на сайте
Меня зовут Елена Васильевна, я репетитор по математике из г. Гомель (Беларусь). Занимаюсь со школьниками (8 по 11 класс), а также со студентами.
Посмотреть всех экспертов из раздела Учеба и наука > Информатика
Пользуйтесь нашим приложением Доступно на Google Play Загрузите в App Store