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