Program maschetinol;
var a:array [1..25] of Integer;
i:Integer;
begin
Write ('Массив: ');
for i:=1 to 25 do
begin
a[i]:=random(51);
write (a[i], ' ');
end;
WriteLn;
Write('Чётные элементы: ');
for i:=1 to 25 do
if a[i] mod 2 = 0 then
Write (a[i],' ');
WriteLn;
Write('Элементы, оканчивающиеся на ноль: ');
for i:=1 to 25 do
if a[i] mod 10 = 0 then
Write(a[i],' ')
end.
Задача 1
1) Начиная от 7 идем вниз с шагом 1 до 4
Ответ: 3
2) нет цикла - Ответ: 1
Задача 2
Начиная от 1 идем вверх с шагом 1 до n, который равен 4. Итого делаем 4 шага.
Первый шаг i=1, а =100, значит а=100-2*1=98
Второй шаг i=2, a=98, значит а=98-2*2=94
Третий шаг i=3, а=94, значит a=94-2*3=88
Четвертый шаг i=4, а=88, значит a=88-2*4=80
Ответ: 80
в системе счисления с основанием 6
вес разрядов (6)(1)
тогда 40(с основанием 6) = 24 + 0
41(с основанием 6) = 24 + 1
в ответе два числа 24, 25
2) оканчивается на 101
101 = 5
1101 = 13
10101 = 21
следующее уже больше 11101 = 29
3) в троичной системе веса разрядов (9)(3)(1)
21 в троичной системе = 6+1 = 7 в десятичной
121 = 9+6+1 = 16
221 = 18+6+1= 25
следующее уже больше 25-ти
321 = 27+6+1=34