Var i,j:integer;
Begin
for i := 1 to 9 do
for j := 1 to 9 do
if (i+j=i*j) then
writeln(10*i+j);
End.
Program n1;
const n=10;
var a: array [1..n] of integer;
i,sum,k: integer;
begin
randomize;
for i:=1 to n do
begin
a[i]:=random(34);
write(a[i],' ');
end;
writeln;
sum:=0;
k:=0;
for i:=1 to n do if a[i] mod 3 = 0 then
begin
k:=k+1;
sum:=sum +a[i];
end;
writeln('кол-во: ',k);
writeln('сумма: ',sum);
writeln('ср. арифм: ',sum/k);
end.
Var n,k,i:integer; f:boolean;
begin
readln(n);
k:=1;
f:=false;
while not f do
begin
k:=k+1;
f:=true;
for i:=2 to n do
f:=f and (k mod i=i-1);
end;
writeln(k);
end.
Пример (для 19 долго считает, можно оптимизировать, если нужно):
19
232792559
<span>Состав: смесь газов, водяной пар, взвешенные частицы</span>
Ответ:
Выражение Вычислить y. int y =5>>2&0*С​ для дальнейших вычислений представлено в математическом виде как x’x‹x‡xёxЃx»xёx‚xЊyint5. В заданном выражении не должно быть знака ";, :, _, !, >, <, =, {, }, ", ', ?, ~, °, %, @, #".
Объяснение: