Написать программу перевода килограмм в тонны. В программе pascalABC.
Ответы на вопрос
Ответил furs1975
0
uses crt;
var k,t:real;
begin
clrscr;
write('Введите килограммы: ');
Readln(k);
t:=k/1000;
Writeln('Это составляет ',t,' тонн');
end.
var k,t:real;
begin
clrscr;
write('Введите килограммы: ');
Readln(k);
t:=k/1000;
Writeln('Это составляет ',t,' тонн');
end.
Новые вопросы