Алгебра 8 класс . Итоговая к/р . Нужно рушить примеры: 1 , 3 , 5 ,7 ,9 ,11

Рассмотрим простой пример:

15:5=3

В этом примере натуральное число 15 мы поделили нацело на 3, без остатка.

Иногда натуральное число полностью поделить нельзя нацело. Например, рассмотрим задачу:

В шкафу лежало 16 игрушек. В группе было пятеро детей. Каждый ребенок взял одинаковое количество игрушек. Сколько игрушек у каждого ребенка?

Поделим число 16 на 5 столбиком получим:

Деление с остатком

Мы знаем, что 16 на 5 не делиться. Ближайшее меньшее число, которое делиться на 5 это 15 и 1 в остатке. Число 15 мы можем расписать как 5⋅3. В итоге (16 – делимое, 5 – делитель, 3 – неполное частное, 1 — остаток). Получили формулу деления с остатком, по которой можно сделать проверку решения.

16=5⋅3+1

a=b⋅c+d

a – делимое,

b – делитель,

c – неполное частное,

d – остаток.

1)
program one;
uses crt;
var A: array [1..6] of integer;
i,k,Amin,Amax,S: integer;
begin
readln (A[i]);
Amax:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]>Amax then begin
k:=i;
Amax:=A[i];
end;
end;
Amin:=A[1];
k:=1;
for i:=2 to 6 do begin
if A[i]<Amin then begin
k:=i;
Amin:=A[i];
end;
end;
S:=0;
for i:=1 to 6 do begin
if (A[i]mod 2=0) and (Amax>A[i]) and (Amin<A[i]) then
S:=S+A[i];
end;
writeln ('Сумма положительных чисел между минимальным и максимальным значениями равна: ', S);
end.

2)
program two;
uses crt;
var x,a,b,i,n: integer;
y: real;
begin
readln (a,b,i,n);
x:=a;   
repeat
if -2<=x<=2 then
y:=sqr(x)-1
else
y:=sqrt(x-1);
writeln (y:3:4);
i:=i+n;
until x>=b;
end.