Составьте программу, которая запрашивает стоимость 1 кг яблок и выводит на экран стоимость 1,2,3 ...10 кг яблок. Результат работы программы может выглядеть так: Введите стоимость 1 кг яблок 5.4 Стоимость 1 кг яблок = 5.4 руб. Стоимость 2 кг яблок = 10.8 руб. Стоимость 3 кг яблок = 16.2 руб.

pascal

Объяснение:

const kg = 10;

var i: integer;

   cost: real;

begin

 Write('Введите стоимость 1 кг яблок: '); ReadLn(cost);

 for i := 1 to kg do

   WriteLn('Стоимость ', i, ' кг яблок = ', i * cost, ' руб.');

end.

5.5  8.8  9.8  11.6  12.7  11.7  11.2  9.3  10.3  10.4  7.4  7.2  5.2  5.3  6.3  6.9  7.8  2.8  2.9  3.9  3.6  4.5      а вот как переводить: с конца над числом в двоичной системе пишешь: 1,2,4, и.т.д      если  единичка есть-прибавляешь это число. если единички нет-ничего не прибавляешь.

например- 1011    8+0+2+1=11            1000      8+0+0+0=8    111   4+2+1=7   11      2+1=3      10    2+0=2                10011101      128+0+0+16+8+4+0+1=157  а твои числа все в уме считаются.проверь может я ошиблась где нибудь)

х+54=х+у

х-х+54=у

у=54(ор)-во 2-ой корзине

х=54+38=92(ор)- в 1-ой корзине

92-27=65(ор)- в 3-ей корзине.