Ответ В) 4 и 8, т.к. в двоичной и троичной системах не может использоваться цифра 3
У круга нет углов
у круга нетконца
Var s, i: integer;
begin
for i:=10 to 99 do
if i mod 7 = 0 then
s:=s+i;
writeln(s);
<span>end.</span>
<span>// PascalABC.NET 3.3, сборка 1562 от 02.11.2017
</span>
var
a:array[1..1000000] of integer;
i, n, x, y, cnt : integer;
begin
writeln('Введите кол-во элементов массива');
readln(n);
writeln('Введите ', n, ' чисел');
for i:= 1 to n do read(a[i]);
Writeln('Введите промежуток от X до Y');
readln(x, y);
for i:= x to y do
if (a[i] < 0) then cnt:= cnt + 1;
Write('Отрицательных элементов: ', cnt);
end.
Var x1,x2,y,p:integer;
begin
write('Введите четырехзначное число: ');
readln(y);
x1:=y div 1000;
x2:=y mod 10;
p:=x1*x2;
writeln('Произведение крайних цифр: ',p)
<span>end.</span>