Простая задача по паскалю. «из 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.
Интересно, есть причины почему люди не отказываются от «такого» образования?
Добрый день. Меня заинтересовал ваш ответ "program m;
var
a1,a2,a3: String;
i1,i2,i3: Integer;
begin
readln(a1);
readln(a2);
readln(a3);..." на вопрос http://www.liveexpert.org/topic/view/217335-paskal-prostaya-zadacha. Можно с вами обсудить этот ответ?