Дано пять целых двузначных чисел. Числа вводятся с клавиатуры. Найти сумму квадратов тех из них, которые меньше числа пятьдесят.

1. Определить к какой предметной области относится данная задача

2. Выписать входные данные (переменные)

3. Написать выходные данные (переменные)

4. Представить математическую модель (как задача решается на предмете математика). Если даны числа 10, 20, 73, 50, 30

5. Написать к задаче программу на языке С++

​

function ptcrk(a,b,x,y,r: real): integer;
var k: integer;
begin
  k:=0;  
  if abs(sqr(x-a)+sqr(y-b)-r*r)<1.0e-9 then k:=1;
  if r*r-sqr(x-a)-sqr(y-b)>1.0e-9 then k:=2;
  ptcrk:=k;
end;
// основная программа
var a,b,x,y,r,k: real;
begin
  write('координаты центра a b: ');  readln(a,b);
  write('координаты точки x y: ');  readln(x,y);
  write('радиус: ');  readln(r);
  k:=ptcrk(a,b,x,y,r);
  if k=1 then writeln('точка на окружности');
  if k=2 then writeln('точка внутри круга');
  if k=0 then writeln('точка вне круга');
end.

координаты центра a b: 2 1
координаты точки x y: 4 1
радиус: 2.1
точка внутри круга

координаты центра a b: 2 1
координаты точки x y: 4 1
радиус: 2
точка на окружности

// PascalABC.NET 3.3

begin
  var n:=ReadInteger('n = ');
  var a:=ReadArrInteger('Введите '+n+' чисел:',n);
  Writeln('1. максимальное число, кратное 5 = ',
           a.Where(x->x mod 5=0).Max);
Writeln('2. сумма чисел, оканчивающихся на 4 = ',
           a.Where(x->x mod 10=4).Sum);
  Writeln('3. сумма чисел, кратных 7 = ',a.Where(x->x mod 7=0).Sum);
  var b:=ArrRandom(n,10,90).Println;
  Writeln('4. сумма всех чисел, кратных 6 и оканчивающихся на 4 = ',
    b.Where(x->(x mod 6=0)and(x mod 10=4)).Sum);
end.

Пример:
n =  30
Введите 30 чисел: 73 81 14 32 26 20 26 83 36 39 69 22 10 75 24 47 40 12 27 20 78 15 72 18 83 59 40 89 47 87
1. максимальное число, кратное 5 = 75
2. сумма чисел, оканчивающихся на 4 = 38
3. сумма чисел, кратных 7 = 14
84 57 88 50 41 85 28 15 47 48 46 69 41 56 89 19 54 74 33 58 83 66 40 35 89 80 12 86 46 14
4. сумма всех чисел, кратных 6 и оканчивающихся на 4 = 1384. сумма всех чисел, кратных 6 и оканчивающихся на 4 = 0