//Pascal ABC.NET v3.0 сборка 1111
Var
a:integer;
begin
writeln('Our burgers do not prepare you for the exam, but will learn to code');
writeln('Value of burgers:');
readln(a);
case a of
1:writeln('Mineral water');
2:writeln('Coca-cola bottle');
end;
if a>=3 then writeln('One more burger');
end.<span>
Пример ввода:
10
Пример вывода:
One more burger
</span>
Зайди на сайт юкоз там можно бесплатно создать свой сайт
1) <span>если введенное значение не соответствует типу заданной переменной
2) введенное значение имеет слишком длинное значение (больше, чем указано в этом поле)
3) </span> <span>Нарушение ссылочной целостности
4) </span><span>Нарушение условий, которые обговариваются в Процедурах в поле или на форме (После обновления, выход, до обновления)</span>
<em>// PascalABC.NET 3.2, сборка 1449 от 23.05.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',n,'] ***');
var a:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
Writeln('S=',a.ElementsWithIndexes
.Where(y->(y[0]>=a.RowCount div 2) and (y[1]>=a.ColCount div 2))
.Select(y->y[2]).Sum)
end.
<u>Пример</u>
Количество строк/столбцов в матрице: 8
*** Исходная матрица [8,8] ***
-73 -79 -1 19 -58 79 -18 -81
-71 78 27 59 -6 4 -95 36
-95 -47 -94 -86 66 -37 6 12
-96 -42 -43 -78 34 -53 29 91
-65 2 59 3 -26 -16 -63 22
-4 -18 97 65 -70 78 78 9
-36 -64 8 -69 -34 74 -17 63
15 87 15 84 22 -39 -16 82
--------------------------------
S=147
<em>Если не устраивают лямбда-выражения, а нужна именно функция, можно написать так:</em>
type
Mat=array[,] of integer;
begin
var n:=ReadInteger('Количество строк/столбцов в матрице:');
Writeln('*** Исходная матрица [',n,',',n,'] ***');
var a:Mat:=MatrRandom(n,n,-99,99);
a.Println(4); Writeln(4*a.ColCount*'-');
var PartSum:Mat->integer;
PartSum:=x->x.ElementsWithIndexes
.Where(y->(y[0]>=x.RowCount div 2) and (y[1]>=x.ColCount div 2))
.Select(y->y[2]).Sum;
Writeln('S=',PartSum(a))
end.
225/10 = 22.5 (грамм) соли на 1 кг капусты
350/10=35(грамм) моркови на 1 кг капусты
200/10=20 (грамм) клюквы на 1 кг капусты
4/10=0,4(грам)лавр листа на 1 кг капусты
составим уравнение
22,5*М (грамм) соли на М кг капусты
35*М (грамм) Моркови на М кг капусты
20*М (грамм) клюквы на М кг капусты
0,4*М (грамм) лаврового листа на М кг капусты