Адам
6 год назад
Умничка помоги пожалуйста Задание. Дано расстояние в сантиметрах. Найти число полных метров в нем.Код программы.Program prim_4;Var a,b:integer;BeginWrite(‘введите расстояние в сантиметрах’);Readln(a);b:=a div 100;Writeln(b,' метров ');ReadlnEnd.Задания для самостоятельного выполнения .1. Дана масса в килограммах. Найти число полных центнеров в ней.2. Дана масса в килограммах. Найти число полных тонн в ней.3. Дано расстояние в метрах. Найти число полных километров в нем.
ОТВЕТЫ
Heikki Timo
Oct 24, 2020
ПРОГРАММЫ ИДУТ ПО ПОРЯДКУ ДЛЯ КАЖДОГО НОМЕРА
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.
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.
215
Смежные вопросы:
