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.

Answer 2

Приведу пример программ на языке Паскаль для решения ваших задач:

1. Программа для определения времени в пути двух автомобилей:

pascalCopy code
program CarTravelTime;

var
  v1, v2, s: real;
  time1, time2: real;

begin
  writeln('Введите скорость первого автомобиля (в км/ч): ');
  readln(v1);
  
  writeln('Введите скорость второго автомобиля (в км/ч): ');
  readln(v2);
  
  writeln('Введите расстояние между городами (в км): ');
  readln(s);
  
  time1 := s / v1;
  time2 := s / v2;
  
  writeln('Время в пути первого автомобиля: ', time1:0:2, ' ч');
  writeln('Время в пути второго автомобиля: ', time2:0:2, ' ч');
  
  if time1 < time2 then
    writeln('Первый автомобиль приехал быстрее.')
  else if time1 > time2 then
    writeln('Второй автомобиль приехал быстрее.')
  else
    writeln('Оба автомобиля приехали одновременно.');
    
  readln;
end.

2. Программа для проверки суммы цифр четырехзначного числа:

pascalCopy code
program NumberSum;

var
  a, sum: integer;
  digit1, digit2, digit3, digit4: integer;
  
begin
  writeln('Введите четырехзначное число: ');
  readln(a);
  
  digit1 := a div 1000;           // Получаем первую цифру числа
  digit2 := (a div 100) mod 10;   // Получаем вторую цифру числа
  digit3 := (a div 10) mod 10;    // Получаем третью цифру числа
  digit4 := a mod 10;             // Получаем четвертую цифру числа
  
  sum := digit1 + digit2;
  
  if sum > digit3 + digit4 then
  begin
    writeln('Сумма всех цифр числа: ', digit1 + digit2 + digit3 + digit4);
    writeln('Произведение всех цифр числа: ', digit1 * digit2 * digit3 * digit4);
  end;
  
  readln;
end.

Примечание: Обратите внимание, что я предполагаю, что вы используете стандартный компилятор языка Паскаль, который поддерживает ввод и вывод данных с помощью readln и writeln соответственно.