Опубликовано 09.06.2017 по предмету Информатика от Гость >> <<

Дана стоимость 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.