Завдання «Арифметичні вирази. Математичні функці» Варіант 11
// - ділення націло
% - залишок відділення
abs(x) - модуль числа, тобто ја
round(x) - округлення числа до цілого;
math.trunc(X) - усікае значення X до цілого (відкидае дробову частину)
math. sqrt(x) - квадратний корінь ах, тобто ух,
t (e-уу
Приклад для виразу
у - x x
2=(x+2)**2 (6*x*y)/( math.sqrt(y-x)+abs(x))
6xy
1. Переписати вираз та знайти його значення
а) 40% 6 6) 40 //6 в) round(-7.9) г) math.trunc(7.99)
2. Записати арифметичний вираз за правилами мови Python:
у
x+y
6,8х
2 = 4 ху
у? - x
х-у
3
-)
()»​

// PascalABC.NET 3.0, сборка 1076
begin
  var n:=ReadInteger('Число элементов массива=');
  var a:=ArrRandom(n,-25,25);
  Write('Исходный массив: '); a.Println;
  var k:=a.Where(x->sqr(x)>sqr(a[0])).Count;
  if k>0 then Writeln
    ('Найдено ',k,' элементов, квадрат которых больше квадрата первого')
  else Writeln
    ('Нет ни одного элемента, квадрат которого больше квадрата первого')
end.

Тестовое решение:
Число элементов массива=15
Исходный массив: 11 12 -11 -3 -16 -22 22 4 -4 -1 -16 -9 -19 4 16
Найдено 7 элементов, квадрат которых больше квадрата первого

Если считать отрицательные трехзначные, то сумма таких чисел в диапазонах от -999 до -100 и от 100 до 999 будет равна 0. Для только положительных:

//c циклом for
var s,i:integer;
begin
  for i:=100 to 999 do
    if i mod 77 = 0 then s:=s+i;
  writeln('Сумма трехзначных кратных 77: ',s);
end.

Тестовое решение:
Сумма трехзначных кратных 77: 5929

// с циклом while
var s,i:integer;
begin
  i:=100;
  while i<=999 do begin
    if i mod 77 = 0 then s:=s+i;
    i:=i+1;
  end;
  writeln('Сумма трехзначных кратных 77: ',s);
end.