Блюдо№1- Взять мясо, провернуть мясо в мясорубке, взять тесто, закатать мясо в тесто, сварить тесто
Блюдо№2-Взять сыр, взять хлеб, нарезать сыр, нарезать хлеб, положить сыр на хлеб(бутерброт)
Блюдо№3- Взять тесто, поджарить тесто, взять сыр, нарезать сыр, закатать сыр в тесто(блины с сыром)
A:=sqr(4)
b:=abs(-11)
c:=a
sqr(x) - возводит x в квадрат
abs(x) - модуль из x
:= - знак присваивания
Var
N, i, k, sum, t: integer;
begin
readln(N);
k := 0;
for i := 100 to 999 do
begin
t := i;
while t > 0 do
begin
sum := t mod 10;
t := t div 10;
end;
if sum = N then k := k + 1;
end;
writeln(k);
end.
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var m:=ReadlnInteger();
var a:=matrixRandom(m,m,-20,20);
Println(a);
var p:=1;
for var i:=0 to m-1 do
for var j:=0 to m-1 do
if a[i,j]>0 then p:=p*a[i,j];
println(p);
end.