var
a:array[1..10] of integer;
b:array[1..10] of integer;
i:integer;
begin
for i:=1 to 10 do
begin
read(b[i]);
a[i]:=b[i]*45
end;
for i:=1 to 9 do
write(a[i],' ');
write(a[10])
end.
Я так понял, что это нужно написать на ЯП Pascal
Вот скриншот и прикрепленный файл с кодом.
Набирать здесь не буду из-за неудобочитаемости.
Работает стабильно, хоть и всегда можно реализовать как-то еще проще :)
upd: обновил фалы, теперь всё написано как надо
N=
N - палитра (количество цветов)
i - кол-во бит на пиксель. По задаче - 3 бита.
N=
N=8
'VBScript 5
Sub Zadanie17645662(x)
yy = 0
if x >= 3 then
yy = Sqr(Sqr((1 + x * x) / x))
else
yy = (x + 1) / Cos(x * x * x)
end if
z = -4 * Sqr(1 + Sin(yy) * Sin(yy))
MsgBox z
End Sub
Call Zadanie17645662(01)
Число 1 в десятичной системе
0011<span> = 3</span>
Число 2 в десятичной системе
1011<span> = 11</span>
Их разность
3 - 11 = -8
Результат в двоичной форме
-8<span> = 1000</span>