50 ! по информатике: с клавиатуры вводится расстояние в метрах. напишите программу, которая находит число полных километров и метров (пример: вы ввели число 4501, в результпте которого вы получите: 4501м=4км 501м) !

241

280

Посмотреть ответы 3

Ответы на вопрос:

753BC

Информатика

4,6(72 оценок)

Лучший ответ /////////////// program d; var n: integer; begin writeln('введите число(метры)'); readln(n); writeln('километры ', n div 1000); writeln('метры ', n mod 1000); readln; end.

Chicken10

Информатика

4,7(54 оценок)

Pascalabc.net 3.3.5, сборка 1640 от 17.03.2018 внимание! если программа не работает, обновите версию! 1. современное решение begin var m: =readinteger('введите расстояние в метрах'); var (km,mm): =(m div 1000,m mod 1000); write(m,'км = ',km,'км'); if mm> 0 then writeln(' ',mm,'м') else writeln end. пример введите расстояние в метрах 4501 4501км = 4км 501м 2. так часто учат писать в школе program perevod; var m,km,mm: integer; begin write('введите расстояние в метрах'); readln(m); km: =m div 1000; mm: =m mod 1000; write(m,'км = ',km,'км'); if mm> 0 then writeln(' ',mm,'м') else writeln; end.