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

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