• Дана длина в см. определите сколько полных метров и сколько осталось см. помогите написать программу по паскалю

Ответы 1

  • // PascalABC.NET 3.2, сборка 1404 от 16.03.2017// Внимание! Если программа не работает, обновите версию!begin  var lsm:=ReadInteger('Укажите длину в см:');  if lsm<100 then Writeln(lsm,' см')  else begin    var lm:=lsm div 100;    Write(lsm div 100,'м');    lsm:=lsm mod 100;    if lsm<>0 then Write(' ',lsm,'cм');    Writeln    endend.ПримерыУкажите длину в см: 162316м 23cмУкажите длину в см: 120012мУкажите длину в см: 3838 см
    • Автор:

      roscoe85
    • 6 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years