Question

ПОМОГИТЕ ПОЖАЛУЙСТА!!!
Напечатать таблицу соответствия между весом в фунтах и весом в килограммах 1, 2, ..., 10 фунтов (1 фунт= 453 гр.) в Pascal. ABC Обязательно должна выводиться таблица.

Answer 1

var i: integer;
begin
for i:=1 to 10 do
writeln (i:2,' фунт (-а,-ов) равно ',i*453/1000:0:3,' килограмма')
end.

или

var i: integer;
begin
writeln ('Фунты     Килограммы');
for i:=1 to 10 do
writeln (i:3,i*453/1000:15:3)
end.