Ришите пожалуйста, с постусловием. Перевод из км в м от 1 до 10
Ришите пожалуйста, с постусловием. Перевод из км в м от 1 до 10
Гость
Ответ(ы) на вопрос:
Гость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.
Не нашли ответ?
Похожие вопросы