var
i,j,s:integer;
x:array[1..8,1..8] of integer;
y:array[1..10,1..10] of integer;
begin
s:=0;
for i:=1 to 8 do
for j:=1 to 8 do
begin
readln(x[i,j]);
if i<=j then s:=s+x[i,j];
end;
writeln("Сумма для X=", s);
s:=0;
for i:=1 to 10 do
for j:=1 to 10 do
begin
readln(y[i,j]);
if i<=j then s:=s+y[i,j];
end;
writeln("Сумма для Y=", s);
end.
А) a = 9
b = 9 mod 5 = 4
b = 4*10 = 40
a = 40 div 4 - 3 = 5
б) a = 123
b = 123 div 10 = 12
b = 12/4+2 = 5
b = 5*25+2 = 127
a = 123+127 = 250
в) a = 951
b = 951 div 100 + 951 mod 100 = 9 + 51=60
a = 951 div 10 = 95
a = 95 mod 10 = 5
a = 95+5=100
Недостающее слово - контекстное
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger;
var s:=n.ToString;
var d:=s[s.Length-1];
s.Where(c->c>d).Count.Println
end.
<u>Пример</u>
15334
2
-•- (к)
--- (о)
-- (м)
•--• (п)
•- (а)
••• (с)
КОМПАС