Меню сайта

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

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