Дана стоимость 1 кг конфет (ввод с клавиатуры), вывести стоимость 0.2, 0.4, 0.6, ..., 2.4 кг

Question

Информатика

Галуша

1 сентября, 06:41

Дана стоимость 1 кг конфет (ввод с клавиатуры), вывести стоимость 0.2, 0.4, 0.6, ..., 2.4 кг

+3

Ответы (2)

Знаете ответ на вопрос?

Русланыч · Answer 1

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.

Арсюта · Answer 2

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.