Дана стоимость 1 кг конфет (ввод с клавиатуры), вывести стоимость 0.2, 0.4, 0.6, ..., 2.4 кг
Дана стоимость 1 кг конфет (ввод с клавиатуры), вывести стоимость 0.2, 0.4, 0.6, ..., 2.4 кг
Гость
Ответ(ы) на вопрос:
Гостьvar
n:real;
i:1..24;
begin
write('Vvedite senu za 1 kg = ');
readln(n);
for i:=2 to 24 do
if (i mod 2 = 0) then writeln('Ves=',i/10:0:1,' kg sena=',n*i/10:1:1);
end.
Гостьvar price:real; i:byte; begin write('Введите стоимость 1 кг конфет '); readln(price); for i := 1 to 12 do writeln('Стоимость ', i / 5 :3:1, ' кг конфет состаляет ', i * price / 5:0:2, ' руб.'); end.
Не нашли ответ?
Похожие вопросы