Написать программы в Паскале. 1. Известно что 2 автомобиля выехали одновременно из...

Question

Написать программы в Паскале. 1. Известно что 2 автомобиля выехали одновременно из одного города в другой. Первый автомобиль ехал со скоростью v1 км/ч, второй – v2 км/ч. Расстояние между городами s км. Найдите время в пути первого и второго автомобиля, выведите сообщение о том, какой автомобиль приехал быстрее, а какой ехал дольше. 2. Дано четырехзначное число а. Если сумма первой и второй цифр больше суммы третьей и четвертой цифр числа, то вывести сумму всех цифр числа и их произведение в отдельных строчках.

Answer 1

Ответ:

1.

program z1;

var V1,V2,S:integer;

begin

write ('V1 = ');

readln (V1);

write ('V2 = ');

readln (V2);

write ('S = ');

readln (S);

if S/V1 = S/V2 then writeln ('Автомобили приехали одновременно');

if S/V1 > S/V2 then writeln ('Второй автомобиль приехал быстрее, а первый ехал дольше.');

if S/V1 < S/V2 then writeln ('Первый автомобиль приехал быстрее, а второй ехал дольше.');

end.

2.

program z2;

var a:integer;

begin

write ('Введите четырёхзначное число: ');

readln (a);

if (a div 1000 + a div 100 mod 10) > (a mod 100 div 10 + a mod 10) then

begin

writeln ('Сумма всех цифр числа ',a div 1000 + a div 100 mod 10 + a mod 100 div 10 + a mod 10);

writeln ('Произведение всех цифр числа ',(a div 1000) * (a div 100 mod 10) * (a mod 100 div 10) * (a mod 10))

end

end.