225/10 = 22.5 (грамм) соли на 1 кг капусты
350/10=35(грамм) моркови на 1 кг капусты
200/10=20 (грамм) клюквы на 1 кг капусты
4/10=0,4(грам)лавр листа на 1 кг капусты
составим уравнение
22,5*М (грамм) соли на М кг капусты
35*М (грамм) Моркови на М кг капусты
20*М (грамм) клюквы на М кг капусты
0,4*М (грамм) лаврового листа на М кг капусты
Pascal abc
<em><u>Проверка</u></em>
-29 13 -23 -20 10 13 -23 -1 30 45
кол-во полож=5<span>
</span>
Работает на 1000 элементов,нужно узнать диапазон N,элементы я так понял создаются рандомные,если вводятся с клавиатуры то просто убираем randomize и пишем вместо присваивания (mas[i]:=random(19)-10;
)пишем read(который в коментах)
label l;
var
mas:array[1..1000] of longint;
n,i:longint;
begin
readln(n);
randomize;
for i:=1 to n do
begin
mas[i]:=random(19)-10;
//read(mas[i]);
write(mas[i],' ');
end;
for i:=n-4 to n do
begin
if mas[i] > 0 then
begin
mas[i]:=mas[i]-2*mas[i];
goto l;
end;
if mas[i] < 0 then
mas[i]:=abs(mas[i]);
l:
end;
writeln;
for i:=1 to n do
write(mas[i],' ');
end.
Ответ:
В книге Эрика Мэтиза .
https://codernet.ru/books/python/izuchaem_python_programmirovanie_igr_vizualizaciya_dannyx_veb-prilozheniya/
страница 225
1)
Var i : Byte;
Begin
For i:=Ord('a') to Ord('z') do Writeln(Chr(i),' ',i);
end.
2)
Var i : Byte;
Begin
i:=Ord('a');
While i<=Ord('z') do
Begin
Writeln(Chr(i),' ',i);
Inc(i);
end;
end.
3)
Var i : Byte;
Begin
i:=Ord('a');
Repeat
Writeln(Chr(i),' ',i);
Inc(i);
Until i>Ord('z');
end.