1. Информатика
  2. Напишите программу,которая переводит

Напишите программу,которая переводит килограммы в граммы. запросите у пользователя вес в килограммах,звтем на экран выведите этот вес в граммах

Анастасия2787 Анастасия2787    2   06.10.2019 14:30    1

Ответы
Emevuz Emevuz  09.10.2020 23:43

program G1;

var

a:real;

begin

writeln('Сколько килограмм?');

readln(a);

a:=a*1000;

writeln('Это ',a,' грамм')

end.

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика
napokinnuu napokinnuu  26.07.2019 09:50
Подсчитать сумму всех нечетных целых чисел от 101 до 301...
korekhova1986super korekhova1986super  26.07.2019 09:50
Для групповых операций с файлами используются маски имен файлов. маска представляют собой последовательность букв, цифр и прочих допустимых в именах файлов символов, в которых...
poliaprokopets poliaprokopets  26.07.2019 10:00
по информатике ! нужно ! буду ! заранее ! 1-создать массив из 10 элементов целых чисел ,найди сумму элементов оканчивающихся на 3 ! 2-создать массив n элементов вещественных...
данил1931 данил1931  26.07.2019 10:00
Нарисовать блок схему вычислить нод (99, 31, 13)...
azarovandrey123 azarovandrey123  26.07.2019 10:00
Дан массив 5x5 заполнить двухзначными числами и вывести его. а ниже вывести массив поменяв первую и последнюю строчки....
zabzelilova zabzelilova  26.07.2019 10:00
Написать программу, которая принимает на вход двухзначное число, а выводит на экран число, у которого цифры меняются местами. например, вводится число 37, а выводится 73. подсказка:...
цукенг7ш8 цукенг7ш8  26.07.2019 10:10
Розрізняють такі види комп ютерних мереж: виберіть декілька з 5 варіантів відповідей 1) міська мережа 2) персональна мережа 3) районна мережа 4) мережа 5) локальна мережа...
mashabest19861 mashabest19861  26.07.2019 10:10
При передачі даних мережею: виберіть декількаиз 6 варіантів відповідей 1) вся інформація передається одним файлом 2) пакети можуть передаватися лише одним шляхом 3) повідомлення...
НАСТЁНАМИЛАЯ12012007 НАСТЁНАМИЛАЯ12012007  26.07.2019 10:10
Program teleshop; var x: real; begin writeln ( ); write ( ); write ( ); readln (x); if x =1 then begin if x=1 then begin writeln ( ); writeln ( ); end else begin writeln ( );...
leramoisejenko leramoisejenko  26.07.2019 10:10
Для записи в восьмеричной системесчисления используются цифрв...

Популярные вопросы