1. 

   EPAM Systems New Member

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

    

   EPAM Systems, 11 фев 2010

   #1
2. 

   Katur New Member

   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.

    

   Katur, 11 фев 2010

   #2

Ваше имя или e-mail:

Пароль:

Забыли пароль?

Запомнить меня