Question

Помогите с программированием!прошу!

Answer 1

var A, t1, t2, S1, S2:integer;
v1, v2: real;
begin
readln(A, t1, t2);
S1:=20;
S2:=A-S1;
v1:=S1/t1;
v2:=S2/t2;
if v1>v2 then
writeln('Скорость была выше до обеда')  ;
if v1<v2 then
writeln('Скорость была выше после обеда')
else
writeln('Скорость была одинаковой')
end.

Answer 2

А вторая задача?

Answer 3

var X, Y:integer;
begin
readln(X, Y);
if (X>=1) and (Y>=1) then
writeln('Принадлежит')
else
writeln('Не принадлежит');
end.