СКИ 1(×2) 2(-d)
30-0. 22122
d-?

Снизу

Объяснение:

x % 2 == 0 это 1.

Если остаток X от деления на 2 равняется нулю, тогда условие выполняется.

x % 2 != 0 это 2.

Думаю понятно из первого.

x % 10 == y % 10 это 3.

Если остаток от деления X на 10 равняется остатку Y на 10 условие выполняется. думаю понятно почему остаток отделения на 10 это последняя цифра.

x % 10 == 0 or y % 10 == 0 это 4.

Это как два условия в одном, если x делится на 10 или y делится на 10 то условие выполняется.

X * Y % 2 == 0 это 6.

Из 4 класса известно если умножить четное на нечетное получится всегда четное.

(X + 1) * (Y + 1) % 2 == 0 это должно быть 7 т.к если оба числа четные то Ч + 1 = НЧ, а НЧ * НЧ = НЧ и условие не будет выполняться, а если есть хотя бы одно нечетное, то НЧ + 1 = Ч. И условие выполнится.

(X + 1) * (Y + 1) % 2 != 0 это 5.

Если оба числа четные - то они оба станут нечетными и произведение не будет делится на 2, а в других случаях будет одно четное что можно легко перебрать.

Фух, вроде всё.

Первая программа

var a,b,c: integer;

min, max, s: integer;

begin

writeln('Введите числа');

readln(a,b,c);

if (a>b) then max:=a else max:=b;

if (c>max) then max:=c;

if (a<b)then min:=a else min:=b;

if (c<min)then min:=c;

s:=max+min;

writeln('Сумма максимального и минимального числа =', s);

end.

Вторая программа

Она состоит из процедуры и выводит на экран начальное уравнение, корни уравнения и дискриминант.

program sqrturavnenie;

uses crt;

Var a, b, c:Real;

procedure sq(a, b, c:Real);

Var d, x1, x2:Real;

Begin

d:=b*b-4*a*c;

Writeln ('d= ', d) ;

If d>=0 then begin

x1:=(-b+sqrt(d)) /(2*a);

x2:=(-b-sqrt(d))/(2*a);

If x1=x2 then

Writeln ('x1= ', x1:6:2)

else

Writeln ('x1=', x1:6:2, 'x2= ', x2:6:2)

End

Else

Writeln ('Корней нет!');

End;

begin

Clrscr ;

Writeln ('a= ');

Readln (a);

Writeln ('b= ');

Readln (b);

Writeln ('c=') ;

Readln (c);

Writeln (a:6:2,'x*x+ ', b:6:2, 'x+ ', c:6:2);

sq(a, b, c);

Readln

end.

С комментариями будет трудно