Так как в максимальная цифра в записи чисел = 5, то минимальное основание системы счисления = 6.
312(6) = 3*6^2+1*6+2 = 116(10)
222(6) = 2*6^2+2*6+2 = 86(10)
111(6) = 6^2+6+1 = 43(10)
152(6) = 1*6^2+5*6+2 = 68(10)
устройства ввода
2 группы на которые делятся
устройства вывода
какие бывают клавиатуры
основные характеристики принтера
струйные принтеры
Program abc;
uses GraphABC;
const
scale = 20;
step = 0.001;
var
x0, y0, x1, y1: integer;
x, y, min, max, a, b, c: real;
begin
setwindowsize(1000, 800);
DrawInBuffer := true;
// write(' введите промежуток для функции(min значение-enter- max значение) ');
// read(min, max);
writeln('a=');
read(a);
writeln('b=');
read(b);
writeln('c=');
read(c);
x0 := WindowWidth div 2;
y0 := WindowHeight div 2;
line(20, y0, WindowWidth - 20, y0);
line(x0, 20, x0, WindowHeight - 20);
min := trunc((20 - x0) / scale);
max := trunc((WindowWidth - 20 - x0) / scale);
x := min;
while x <= max do
begin
x1 := trunc(x0 + x * scale);
y := a * x * x * x + b * x * x + c;
y1 := trunc(y0 - y * scale);
PutPixel(x1, y1, clGreen);
y := a * x * abs(sin(x));
y1 := trunc(y0 - y * scale);
PutPixel(x1, y1, clBlue);
x := x + step;
end;
end.
A = 5.
b = 5 + 2 = 7.
a = (5 + 2) * (7 - 3) = 7 * 4 = 28.
b = 28 div 5 = 5.
a = 28 mod 5 = 3.
a = 3 + 1 = 4.
b = (4 + 14) mod 7 = 18 mod 7 = 4.
Ответ: 4.
Составим программку:
uses Crt;
const n=20;
type Mas=array [1..n, 1..n] of integer;
var A: Mas;
i,k, Sum: integer;
begin
ClrScr;
Sum:=0;
for i:=1 to n do
begin
for k:=1 to n do
begin
if i>k then
begin
A[i,k]:=1;
Sum:=Sum+A[i,k];
end
else
begin
A[i,k] :=-1;
Sum:=Sum+A[i,k];
end;
Write(A[i,k]:3);
end;
WriteLn;
end;
WriteLn;
WriteLn(' Sum = ',Sum);
ReadLn;
end.
Эта программа симметрично относительно главной диагонали заполняет массив единичками с плюсом или минусом и считает сумму диагональных элементов.
Если n=20, то Sum = -20
Если n = 100, то Sum = - 100
ПРАВИЛЬНЫЙ ОТВЕТ: 3) - 100
