Var
i,a:integer;
s:real;
begin
for i:=1000 to 3000-1 do
if (i mod 6=0)and(i mod 10=4)then
begin
write(i,' ');{это чтобы посмотреть на числа, эту строку можно убрать}
s:=s+i;
end;
writeln;
writeln('S= ',S);
end.
Ответ: 135(10) = 207(8), фото ниже.
3. -ABS(-КОРЕНЬ(4)) = -ABS(-2) = -2
ответ: Г) -2
5. В Power Point 2003 - Показ слайдов > Настройка анимации
ответ: А) Показ слайдов
7. Диапазон C3:E3 состоит из 3 ячеек, диапазон С3:F3 состоит из 4 ячеек ⇒ СРЗНАЧ(C3:F3) = (15+5)/4 = 5
ответ: В) 5
Задаешь значения k и S ноль(количество и сумма) .Сделай цикл с условием, если b делить на 5 равно нолю то k равно k=+1.
Ещё такое же условие, но s=s+b