Решаем задачи Абрамян на Паскале. Integer 1

Integer1. Дано расстояние $L$ в сантиметрах. Используя операцию деления нацело, найти количество полных метров в нем (1 метр = 100 см).

Решение:

program Integer1;
var
  L,Lm: Integer;
begin
  Write('Введите длину в сантиметрах: ');
  Readln(L);
  Lm:=L div 100;
  Writeln('В этом расстоянии полных метров: ', Lm);
end.

program Integer1;

var

L,Lm: Integer;

begin

Write('Введите длину в сантиметрах: ');

Readln(L);

Lm:=L div 100;

Writeln('В этом расстоянии полных метров: ', Lm);

end.

Другие задачи из раздела Integer можно посмотреть здесь.

Решаем задачи Абрамян на Паскале. Integer 1

Комментарии:

Добавить комментарий Отменить ответ