Ответы на вопрос:
Var kg,tn: real; begin write('введите вес в килограммах '); readln(kg); writeln(kg,' кг. = ',kg/1000,' т.'); end.
Uses crt; var k,t: real; begin clrscr; write('введите килограммы: '); readln(k); t: =k/1000; writeln('это составляет ',t,' тонн'); end.
Популярно: Информатика
-
paperghost31.05.2023 17:42
-
ДианаDi111108.06.2020 16:15
-
rada18218.12.2021 19:50
-
olegtoda01.09.2021 21:17
-
блеск410.09.2022 02:26
-
Gromokon13.09.2021 22:55
-
yuiopaw25.06.2023 10:08
-
gagikgrigoryan13.05.2020 00:25
-
тарлан415.07.2021 20:02
-
lora198106.05.2021 00:23