var a: integer;
s,s1: integer;
begin
readln(a);
s:=(a div 100)+((a mod 100) div 10)+((a mod 100) mod 10);
s1:=(a div 100)*((a mod 100) div 10)*((a mod 100) mod 10);
if s>15 then writeln(s) else writeln(s1);
end.
1) Схема отношения
2) Объединение
3) Пересечение
<em><u>P.S. Надеюсь на благодарность и лучший ответ.</u></em>
<span><em><u>P.S.S. Извиняюсь заранее за ошибки в пунктуации и грамматики. </u></em></span>
<h3>PascalABC.NET 3.4.2, сборка 1843 от 24.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
21.To(ReadInteger('D=')).Println
end.
<h3>D= 40</h3><h3>21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40</h3>
Var
a:array [1..9] of integer;
i,k,b:integer;
begin
randomize;
writeln('Массив:');
for i:=1 to 9 do
begin
a[i]:=random(141)+10;
write(a[i],' ');
end;
writeln;
for i:=1 to 9 do
begin
if a[i]<=99 then
if ((a[i] div 10) mod 2)<>0 then k:=k+a[i];
if a[i]>99 then
begin
b:=a[i] div 10;
if (b mod 2)<>0 then k:=k+a[i];
end;
end;
writeln('Сумма элементов у которых вторая с конца цифра нечетная: ',k);
end.
Program mathlover12;
const
n = 6; {Количество элементов массива}
var
a:array[1..n] of integer;
s:string;
i,min,max: integer;
begin
s:='**** -=Alphaeus=- ****';
for i:=1 to 22 do begin write(s[i]); sleep(42) end;
{вводим элементы массива}
writeln; writeln('Введите ',n,' чисел:');
for i:=1 to n do read(a[i]);
{Ищем min и max}
min:=a[1];
max:=a[1];
for i:=2 to n do
begin
if min>a[i] then min:=a[i];
if max<a[i] then max:=a[i];
end;
{Выводим произведение min и max}
writeln; writeln;
writeln('Произведение min и max равнo ',min*max);
end.
