Ришите пожалуйста, с постусловием. Перевод из км в м от 1 до 10
Answers & Comments
Banglo
Program mili; const a=1.603; b='км'; с='мили'; var k:integer; m:real; begin writeln(b:5,c:7); writeln; for k:=l to 10 do begin m:=k/a; writeln(k:5,m:6:3) end end.
Answers & Comments
const a=1.603; b='км'; с='мили';
var k:integer; m:real;
begin
writeln(b:5,c:7); writeln;
for k:=l to 10 do
begin
m:=k/a; writeln(k:5,m:6:3)
end
end.