Сформировать таблицу перевода английских фунтов

@bagira_svs · Регистрация: 08.10.2012

Студворк — интернет-сервис помощи студентам

Сформировать таблицу перевода английских фунтов (lb) в метрические килограммы для значений от 1 до 20 lb с шагом 0,5 lb (1 lb = 0,454 кг)

@CodeR · 16.10.2012, 14:01

Pascal

Const fn=0.454;
Var lb:real;
Begin
    lb:=1;
    While lb<=20 do
    Begin
      writeln(lb:0:2,' Фунтов = ',lb*fn:0:2,' кг');
      lb:=lb+0.5;
    End;
    readln;
End.

@bagira_svs 0 / 0 / 1 Регистрация: 08.10.2012 Сообщений: 57
		1
	Сформировать таблицу перевода английских фунтов 16.10.2012, 11:49. Показов 1053. Ответов 1 Метки нет (Все метки) Сформировать таблицу перевода английских фунтов (lb) в метрические килограммы для значений от 1 до 20 lb с шагом 0,5 lb (1 lb = 0,454 кг) 0

Опции темы

Сформировать таблицу перевода английских фунтов

Решение