Question

Помогите пожалуйста
1.Выполнить программу для:

1) A=80, t1=2, t2=3;

2) A=60, t1=2, t2=5;

Var A,t,t2,v1,v2: Real; begin writeLn('Введите A, t1, t2'); readLn(A, t1, t2);

v1:=20/t1; v2:=(A-20)/t2; if v1>v2 then write (`До обеда скорость выше')

else write ('После обеда скорость выше');

END.

2.Выполнить программу для:

1) X=4; Y=-5

2) X=4; Y=5

Program SORTING; var X, Y, С : real; begin

readln(X, Y) ; if X>Y then begin С : =X; X:=Y; Y:=C end; write(X,Y) end.

Выполнить программу для:

1) X=42

2) X=23

var x, a, b, c: integer;

begin

readln(x);

a:= 100; b:= 90;

c:= x mod 2;

if c = 0 then a:= a + 10

else b:= b - 10;

writeln(a);

writeln(b);

end.

Answer 1

Не очень тебя понял. Всм выполнить тебе нужен сам ОТВЕТ в которой будет выведено в конце программы?