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

Ответы 1

  • ПРОГРАММЫ ИДУТ ПО ПОРЯДКУ ДЛЯ КАЖДОГО НОМЕРАprogram _1;var a,b:integer;beginwrite ('введите количество килограмм ' );readln (a);b:=a div 100;writeln (b, ' полных центнеров ' );end.program _2;var a,b:integer;beginwrite (' введите массу в килограммах ');readln (a);b:= a div 1000;writeln (b, ' полных тонн ');end.program _3;var a,b : integer;beginwrite (' введите расстояние в метрах ');readln (a);b: a div 1000;writeln (b, ' полных километров: ' );end.
    • Автор:

      dolly
    • 5 лет назад
    • 0
  • Добавить свой ответ

Войти через Google

или

Забыли пароль?

У меня нет аккаунта, я хочу Зарегистрироваться

How much to ban the user?
1 hour 1 day 100 years