<em>// PascalABC.NET 3.2, сборка 1387 от 20.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(10,1,10000); a.Println;
a:=a.Where(x->not ((x mod 10<>0) and (x mod 10).IsEven
and (x mod (x mod 10)=0))).ToArray;
a.Println
end.
<u>Пример</u>
1266 6274 1359 3481 9554 324 1546 3063 8166 1562
6274 1359 3481 9554 1546 3063
Var t,n:integer;
begin
n:=1;
t:=3;
writeln('t','n':6);
while t<25 do
begin
n:=n*2;
writeln(t,n:6);
t:=t+3;
end;
readln;
<span>end.</span>
Красный : входить в кабинет без разрешения учителя. Толкаться в дверях. Трогать разъёмы. Прикасаться к проводам питания. Приносить в класс компакт диски... Пытаться самостоятельно исправить проблемы. Включать игры которые не относятся к уроку. Работать грязными руками. Прикасаться к екрану или задней части монитора. Работать на компьютере во влажной одежде. Класть вещи на составные части компьютера. Удалять папки и файлы без разрешения учителя.
зеленый: все остальное.
2 задание
2, 3 , 1 , 4, 5, 7, 6, 8, 9.
Так как результат вычислений надо получить в десятичной системе счисления, то переведем все числа, которые нам даны, в десятичную систему счисления. Затем найдем значение выражения, как принято в математике.