Question

Срочно! напишите программу на языке Паскаль (приложение АВС Pascal) Дано расстояние L в сантиметрах . Используя операцию деления нацело, найти количество полных метров в нем ( 1 метр = 100 см ) . исходные данные: L ( сантиметров ) : 1026 пример верного решения: L ( полных метров ) : 10 Заранее ОГРОМНОЕ спасибо)

Answer 1

Var l:integer;
begin
write ('Введите расстояние L в сантиметрах: ');
readln (l);
writeln('Количество полных метров в нем: ',l div 100)
end.

Answer 2

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

pascalCopy code
program ConvertCentimetersToMeters;

var
  L, meters: integer;

begin
  writeln('Введите расстояние в сантиметрах (L): ');
  readln(L);

  // Вычисляем количество полных метров
  meters := L div 100;

  writeln('Количество полных метров: ', meters);

end.

Программа сначала запрашивает ввод расстояния в сантиметрах, затем вычисляет количество полных метров с помощью операции деления нацело (div). Результат выводится на экран.

Для примера с L = 1026, программа выведет:

scssCopy code
Введите расстояние в сантиметрах (L):
1026
Количество полных метров: 10

Надеюсь, это поможет! Если у вас есть ещё какие-то вопросы, пожалуйста, дайте знать.