Составьте программу, которая запрашивает стоимость 1 кг конфет и выводит на экран стоимость 0.1, 0.2, 0.3, 1 кг конфет. результат работыпрограммы может выглядеть так: введите стоимость 1 кг конфет: 7.6стоимость 0.1 кг конфет = 0.76 руб. стоимость 0.2 кг конфет = 1.52 руб. стоимость 0.3 кг конфет = 2.28 руб.

var

    s : real;

begin

    write('введите стоимость 1 кг конфет: ');

    readln(s);

    for var i : = 1 to 9 do begin

        writeln('стоимость ',i/10, ' кг конфет ', s*i/10);

    end;

end.

program dddd; uses crt; var a,b,c,i: integer; beginclrscr; c: =10; readln(a); while a < > 0 dobeginb: = a mod 10; if b < c then c: =b; a: = a div 10; end; writeln(c); readkey; end.

var a: array[1..10, 1..10] of integer; i, j, s: integer;

begin s : = 0; for i : = 1 to 10 do begin for j : = 1 to 10 do begin a[i, j] : = random(20) + 1; write(a[i, j]: 3); if (j = 2) and (a[i, j] > 10) then s : = s + a[i, j]; end; writeln; end; writeln('сумма элементов 2го столбца больших 10 равна', s); end.