Меню сайта

Задача №6
Дано расстояние в сантиметрах. Найти число полных метров в нем.
Program prim_6-
Var a,b:integer-
Begin
— — Write(‘введите расстояние в сантиметрах‘)-
— — Readln(a)-
— — b:=a div 100-
— — Writeln(b,’метров ‘)-
— -Readln
End.
Категория: Линейные программы | Дата: 28.11.12

Меню раздела
Блок