Написать программу перевода килограмм в тонны. в программе pascalabc.

Kiosshi Kiosshi    2   25.07.2019 03:30    0

Ответы
сас001 сас001  15.09.2020 23:27
Var kg,tn:real;
begin
write('введите вес в килограммах ');
readln(kg);
writeln(kg,' кг. = ',kg/1000,' т.');
end.
ПОКАЗАТЬ ОТВЕТЫ
Дарья22012007 Дарья22012007  15.09.2020 23:27
Uses crt;
var k,t:real;
begin
 clrscr;
write('Введите килограммы: ');
Readln(k);
t:=k/1000;
Writeln('Это составляет ',t,'  тонн');
end.
ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика