Значение цены 1 кг яблок вводится с клавиатуры. Вывести на экран

Значение цены 1 кг яблок вводится с клавиатуры. Вывести на экран 0,6;1,2;1,8;2,4 и т.д. до 7,2 киллограмм яблок

Задать свой вопрос
1 ответ

var a,c: real;

begin

write ('Введите цена 1 кг яблок: ');

readln (c);

a := 0.6;

while a lt;= 7.2 do

begin

writeln(a:3,' кг яблок стоит ', a*c,' руб.');

a := a + 0.6

end

end.

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


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

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

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

Войти на сайт