Program Integer1;
var
M, Sm: integer;
begin
readln(Sm);
M := Sm div 100;
writeln('B ', Sm, 'cm= ', M, 'Cm.');
end.
Похожие записи/страницы:
- Дано расстояние L в сантиметрах. Используя операцию деления нацело, найти количество полных метров в нем (1 метр…
- Дана масса M в килограммах. Используя операцию деления нацело, найти количество полных тонн в ней (1 тонна =…
- Дано расстояние в сантиметрах. Найти число полных метров в нем- Pascal(Паскаль)
- Дано целое число, большее 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления,…
- Используя операцию деления нацело, найти количество полных килобайтов, которые занимает данный файл (1 килобайт…
- Дано двузначное число.Вывести вначале его левую цифру(десятки),а затем-его правую цифру(единицы). Для нахождения…
- Дано целое число N (> 0). Используя операции деления нацело и взятия остатка от деления, найти количество и…
- Дано двузначное число. Для нахождения десятков использовать операцию деления нацело, для нахождения единиц —…