Дано вещественное число стоимость 1кг конфет. Вывести стоимость 0.1, 0.2,  , 1кг.

Дано вещественное число стоимость 1кг конфет. Вывести цена 0.1, 0.2, , 1кг. Входные
данные: ввести одно вещественное число
A (1lt;=Alt;=100). Выходные
данные: вывести стоимость 0.1, 0.2, , 1кг
конфет с точностью до 4 цифр в дробной части.

Задать свой вопрос
1 ответ
Var a, i: real;
begin
     readln(a);
     while (i lt;= 1) do
     begin
         i := i + 0.1;
         writeln(i, ' kg -gt; ', i * a:4:4, ' y.e.');
     end;
end.

:))
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт