Вывести на экран таблицу соответствия между весом в фунтах и весом в кг для значений от 1 до 20 с шагом в 1 фунт(1 фунт=400г)Пример оформления результата:1 фунт=0,4 кг2 фунт+0,8 кг…..
20 фунт=8 кг
program qq;var a:real; b:integer;beginfor b:=1 to 20 do a:=a+0.4;writeln(b,’фунт =’,a,’кг’); end.Что здесь не хватает?
Помогите пожалуйста
- Ну как чего не хватает… У тебя в цикле for несколько операций (Счетчик и вывод) — для этих моментов (Много операций в цикле) используется begin end;