andreevaalisa

04.02.2022

Создать в PascalABC программу по переводу тонн в килограммы

Информатика

Ответить

Ответы

НиканоровСалиев675

04.02.2022

Объяснение:

uses crt;

var k,t:real;

begin

clrscr;

write('Введите килограммы: ');

Readln(k);

t:=k/1000;

Writeln('Это составляет ',t,' тонн');

end.

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Создать в PascalABC программу по переводу тонн в килограммы

▲

Создать в PascalABC программу по переводу тонн в килограммы

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

Зробити програму яка розвяже задачу Знайдіть усі двоцифрові числа які діляться на добуток їхніх цифр

Расположите в порядке возрастания количества бит: 1) 9 бит 2) 4097 килобайт 3) 1 байт 4) 1 мегабайт 5) 2 килобайта 6) 2049 байт 7) 1 килобайт 8) 4 мегабайта 9) 1 бит

яким буде значення змінної після завершення програми k:=1;a:=100; while a>10 do begin a:=a/2; k:=k+1; end

Для представления вещественного числа отводится 8 байт порядок занимает 11 бит сколько значащих цифр будет содержать двоичная мантиса

Укого то есть ответы на соры можете отправить! ?

Внести недостающие записи в схему

Информация, виды информации Информатика

надо найти ошибки и исправить их

Создать в PascalABC программу по переводу тонн в килограммы

Ответы

Ответить на вопрос

Ваше имя (никнейм)*

Email*

Комментарий*

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

Зробити програму яка розвяже задачу Знайдіть усі двоцифрові числа які діляться на добуток їхніх цифр

Расположите в порядке возрастания количества бит: 1) 9 бит 2) 4097 килобайт 3) 1 байт 4) 1 мегабайт 5) 2 килобайта 6) 2049 байт 7) 1 килобайт 8) 4 мегабайта 9) 1 бит

яким буде значення змінної після завершення програми k:=1;a:=100; while a&gt;10 do begin a:=a/2; k:=k+1; end

Для представления вещественного числа отводится 8 байт порядок занимает 11 бит сколько значащих цифр будет содержать двоичная мантиса

Укого то есть ответы на соры можете отправить! ?

Внести недостающие записи в схему​

Информация, виды информации Информатика

надо найти ошибки и исправить их ​

яким буде значення змінної після завершення програми k:=1;a:=100; while a>10 do begin a:=a/2; k:=k+1; end

Внести недостающие записи в схему

надо найти ошибки и исправить их