Значение стоимости 1 кг яблок вводится с клавиатуры. вывести на экран 0,6 1,2 1,8 2,4
и т. д. до 7,2 кг яблок
Знаешь ответ?
Чтобы оставить ответ, войдите или зарегистрируйтесь.
Ответ или решение 1
ai.denis2017
var cena, i, b: real;
begin
write ('Введите стоимость 1 кг яблок: ') ;
readln (cena) ;
if (cena>0) then begin
i:=0.6;
while (i<=7.2) do
begin
b:=cena*i;
writeln (i,' кг яблок = ', b) ;
i:=i+0.6;
end;
end else writeln ('Цена не может быть равна 0') ;
end.=7.2)>
begin
write ('Введите стоимость 1 кг яблок: ') ;
readln (cena) ;
if (cena>0) then begin
i:=0.6;
while (i<=7.2) do
begin
b:=cena*i;
writeln (i,' кг яблок = ', b) ;
i:=i+0.6;
end;
end else writeln ('Цена не может быть равна 0') ;
end.=7.2)>
Новые вопросы в разделе Информатика
Адинела
05.10.2022, 08:15
Гаязутдин
05.10.2022, 01:10
Алайбек
05.10.2022, 01:05
Акияма
05.10.2022, 01:00
