Умничка помоги пожалуйста Задача. Дано расстояние в сантиметрах. Найти число полных метров в нем.
Код программы.
Program prim_4;
Var a,b:integer;
Begin
Write(‘введите расстояние в сантиметрах’);
Readln(a);
b:=a div 100;
Writeln(b,' метров ');
Readln
End.
Задания для самостоятельного выполнения .
1. Дана масса в килограммах. Найти число полных центнеров в ней.
2. Дана масса в килограммах. Найти число полных тонн в ней.
3. Дано расстояние в метрах. Найти число полных километров в нем.
Код программы.
Program prim_4;
Var a,b:integer;
Begin
Write(‘введите расстояние в сантиметрах’);
Readln(a);
b:=a div 100;
Writeln(b,' метров ');
Readln
End.
Задания для самостоятельного выполнения .
1. Дана масса в килограммах. Найти число полных центнеров в ней.
2. Дана масса в килограммах. Найти число полных тонн в ней.
3. Дано расстояние в метрах. Найти число полных километров в нем.