СРОЧНО. 9 класс. Составить программу перевода количества сантиметров в метры и километры. (паскаль) Чтобы, например, если ввести 100 см, то выдавалось бы 1 метр и 0,001 километр.
Answers & Comments
Giammy
Var a:real; begin write('Write amount in cm: '); readln(a); writeln('In meters: ',a/100:0:4); writeln('In kilometers: ',a/10000:0:4); readln end.
Giammy
var a:integer; begin write('Write amount in cm: '); readln(a); writeln('In meters: ',a div 100,',',a mod 100); writeln('In kilometers: ',a/10000:0:3); // от этого никак не избавится readln end.
Answers & Comments
a:real;
begin
write('Write amount in cm: '); readln(a);
writeln('In meters: ',a/100:0:4);
writeln('In kilometers: ',a/10000:0:4);
readln
end.
a:integer;
begin
write('Write amount in cm: '); readln(a);
writeln('In meters: ',a div 100,',',a mod 100);
writeln('In kilometers: ',a/10000:0:3); // от этого никак не избавится
readln
end.