Напечатать таблицу стоимости 100, 200, 2000г конфет ( стоимость 1 кг конфет вводится с клавиатуры) . среда кумир, цикл для.

program serqaz123_sweets; uses crt; const   shag = 100;   max=2000; var  i: integer;   price: real; begin  write('введите стоимость 1 кг конфет: '); readln(price);   writeln();   writeln('++');   writeln('|            таблица стоимости конфет            |');   writeln('++');   writeln('|            вес            |        стоимость          |');   writeln('|        (грамм)        |          (денег)            |');   writeln('++');   for i: =1 to 20 do          writeln('|        ',i*100: 5,'            |  ',(i/10)*price: 11: 2,'            | ');   writeln('++'); end.

Уверен, что формула в условии написана неверно, но уж как var   a,b,c: real; begin   write('введите a,b,c: '); read(a,b,c);   writeln('результат: ',max(a,a+b)+max(a,b+c)/1+max(max(a+b*c,1),5)) end. тестовое решение: введите a,b,c: -3 5.5 4 результат: 31 а вот так, на мой взгляд, должно быть: var   a,b,c: real; begin   write('введите a,b,c: '); read(a,b,c);   writeln('результат: ',(max(a,a+b)+max(a,b+c))/(1+max(a+b*c,1. end. тестовое решение: введите a,b,c: -3 5.5 4 результат: 0.6

Const   m = 3;   n = 4; var   a: array[1..m, 1..n] of integer;   b: array[1..m] of real;   i, j, k: integer;   min: real; begin   writeln('введите оценки студентов');   for i : = 1 to m do   begin       b[i]: =0;       for j : = 1 to n do       begin read(a[i,j]); b[i]: =b[i]+a[i,j] end;       b[i]: =b[i]/n   end;   k: =1; min: =b[1];   for i: =2 to 3 do       if min> b[i] then begin min: =b[i]; k: =i end;   writeln('студент номер ',k,' имеет минимальный cредний ',min: 5: 2) end. тестовое решение: введите оценки студентов 5 4 4 3 3 5 3 4 4 5 4 5 студент номер 2 имеет минимальный cредний   3.75