значение цены 1 кг яблок вводится с клавиатуры.вывести на экран 0,6

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

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

var cena,i,b: real;

begin

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

readln(cena);

if (cenagt;0) then begin

i:=0.6;

while (ilt;=7.2) do

begin

b:=cena*i;

writeln(i,' кг яблок = ',b);

i:=i+0.6;

end;

end else writeln('Стоимость не может быть равна 0');

end.

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


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

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

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

Войти на сайт