Question

Решить в Паскале. Пожалуйста​

Answer 1

Задача 1:

var Sasha,Kolya: integer;

begin

writeln('Возраст Саши:');

readln(Sasha);

writeln('Возраст Коли:');

readln(Kolya);

if (Sasha=Kolya) then writeln('Саша и Коля ровесники')

else writeln('Саша и Коля не ровесники');

end.

Задача 2:

var V1,V2: integer;

begin

writeln('скорость первого автомобиля:');

readln(V1);

writeln('скорость второго автомобиля:');

readln(V2);

if (V1>V2) then  

writeln('первый автомобиль преодолеет ',

'расстояние быстрее')

else writeln('второй автомобиль преодолеет ',

'расстояние быстрее');

end.

Задача 3:

var a,b: integer;

begin

writeln('первое число:');

readln(a);

writeln('второе число:');

readln(b);

if (a-b<10) then  

writeln('разность чисел меньше 10')

else writeln('разность чисел не меньше 10');

end.