Question

Пожалуйста гении паскаля, 100 баллов даю!
1. Вводятся годы рождения двух детей. Определите старшего из них. 2. В школу танцев принимаются юноши и девушки, имеющие рост не ниже 168 см. и не выше 173 см. Их вес должен соотноситься с ростом по формуле: значение веса <= значения роста минус 115. Определите, будет ли поступающий принят в школу.

Answer 1

1)

var g1,g2:integer;

begin

writeln('Введите годы рождения двух детей');

readln(g1,g2);

if g1<g2 then

writeln('Старший ребенок родился в ',g1,'году')

else

writeln('Старший ребенок родился в ',g2,'году');

end.

2)

var r,v,ves:real;

begin

write('Введите рост ');

readln(r);

writeln('Введите вес ');

readln(ves);

v:=r-115;

if (r>=168) and (r<=173) then

if v=ves then

writeln('Поступающий будет принят в школу')

else

writeln('Поступающий не будет принят')

else

writeln('Поступающий не будет принят');

end.