решение задач в паскале

[Жека1994]

Задача 18.
Ввести 3 произвольных числа, если 1>3, то вычислить произведение всех чисел, если нет – то сумму.
Задача 19.
Составить программу, которая вычислит ваш возраст и если вам больше 18 лет, то выведет на экран фразу «Вы уже взрослый».
Задача 20.
Введите в программу скорость автомобиля, если скорость превышает 90 км/ч, то программа должна вывести фразу «Вы превысили скорость».

[Stilet]

{Ввести 3 произвольных числа, если 1>3, то вычислить произведение всех чисел, если нет – то сумму.}
procedure _18;
var a,b,c:integer;
begin
 readln(a,b,c);
 if 1>3 then writeln(a*b*c) else writeln(a+b+c);
end;

{Составить программу, которая вычислит ваш возраст и если вам больше 18 лет, то выведет на экран фразу «Вы уже взрослый».}
procedure _19; var y:integer;
begin
 write('День: ');readln(y);
 write('Месяц: ');readln(y);
 write('Год: ');readln(y);
 if (y-2014)>17 then write('Вы уже взрослый');
end;

{Введите в программу скорость автомобиля, если скорость превышает 90 км/ч, то программа должна вывести фразу «Вы превысили скорость». }
procedure _20; var y:integer;
begin
 write('Скорость: ');readln(y);
 if y>90 then write('Вы все равно уже взрослый');
end;

begin
 _18;
 _19;
 _20;
 readln;
end.

[Poma][a]

if 1>3 then

Эм.. шуткуешь?

(y-2014)>17

Мой возраст 1997-2014 = -17..
Допустим, мы возьмем это abs()'ом.. Но мне всеже 16..

[Stilet]

Эм.. шуткуешь?

Нет:

если 1>3, то...

Т.З. Такое )

Мой возраст 1997-2014 = -17..

Ну я... это... как-бы не зная какой паскаль не знал и как получить системную дату. Всетки в ТП это одно, а в АБЦ другое.
А вообще да - там abs если так вычислять.

[Poma][a]

Т.З. Такое )

А может : если первое > третьего?

Ну я... это... как-бы не зная какой паскаль не знал и как получить системную дату

Работает стабильно : Write ('Введите сегодняшний день ', ); Read(d); и прочее

[Stilet]

А может : если первое > третьего?

А это автору сержант расскажет ))

Работает стабильно : Write ('Введите сегодняшний день ', ); Read(d); и прочее

Так то оно так, но я будь учителем не преминул бы задать допвопрос по поводу получения даты.
Вообще я так понял автору уже все равно...

[Serge_Bliznykov]

Вообще я так понял автору уже все равно...

Либо он оценил сарказм и тонкую иронию Stilet и доделал программы самостоятельно.

Либо, не оценил юмор, обиделся на издевательства и ушёл со словами "злые вы..."

Либо, вообще не понял ничего, быстренько скопипастил код и побежал сдавать.

Либо, скорее всего, задачи такого уровня были ему где-то ещё кем-то решены, поэтому он интерес (которого и не было) к теме и совсем потерял.


А Вы, хлопцы, порезвились вволю, я повеселился...