Question

Умничка . дано расстояние в сантиметрах. найти число полных метров в нем. код программы. program prim_4; var a,b: integer; begin write(‘введите расстояние в сантиметрах’); readln(a); b: =a div 100; writeln(b,' метров '); readln end. для самостоятельного выполнения . 1. дана масса в килограммах. найти число полных центнеров в ней. 2. дана масса в килограммах. найти число полных тонн в ней. 3. дано расстояние в метрах. найти число полных километров в нем.

Answer 1

ПРОГРАММЫ ИДУТ ПО ПОРЯДКУ ДЛЯ КАЖДОГО НОМЕРА

program _1;
var a,b:integer;
begin
write ('введите количество килограмм ' );
readln (a);
b:=a div 100;
writeln (b, ' полных центнеров ' );
end.

program _2;
var a,b:integer;
begin
write (' введите массу в килограммах ');
readln (a);
b:= a div 1000;
writeln (b, ' полных тонн ');
end.

program _3;
var a,b : integer;
begin
write (' введите расстояние в метрах ');
readln (a);
b: a div 1000;
writeln (b, ' полных километров: ' );
end.