Const
m=5;
n=3;
var
i,j,k:integer;
a:array[1..m,1..n] of integer;
begin
Randomize;
Writeln('Исходный массив');
k:=0;
for i:=1 to m do begin
for j:=1 to n do begin
a[i,j]:=Random(999)+1;
Write(a[i,j]:4);
if (a[i,j] mod 8=0) and (a[i,j] mod 10=4) then Inc(k);
end;
Writeln
end;
if k>0 then begin
Writeln('Искомые элементы');
for i:=1 to m do
for j:=1 to n do
if (a[i,j] mod 8=0) and (a[i,j] mod 4=10) then Write(a[i,j],' ')
end
else
Writeln('Нет элементов, кратных 8 и оканчивающихся на 4')
end.
Пример работы программы
Исходный массив
424 672 826
546 587 413
507 211 884
252 781 518
750 656 359
Искомые элементы
424
1)“Все караси - рыбы”, “Интеллектуальная собственность охраняется законом”, “Все квадраты – равносторонние прямоугольники”.
2)<span>“Ни один лев не есть травоядное животное”. Видим полную несовместимость субъекта и предиката. Объемы их полностью исключают друг друга.
3)</span>“Некоторые студенты - спортсмены”. Здесь S и P – перекрещивающиеся понятия, их объемы совпадают частично.“Некоторые преступления являются должностными”: предикат подчинен субъекту. Объем предиката полностью входит в объем субъекта, объем субъекта лишь частично совпадает с объемом предиката.<span>
4)</span>“Некоторые студенты не являются спортсменами” – часть объема субъекта входит в объем предиката, это перекрещивающиеся понятия.<span>“Некоторые геометрические фигуры не являются треугольниками”: субъект и предикат – в отношении подчинения.</span>
Потому, что архитектура современных компьютеров предусматривает обработку данных, содержащих целое число байт и один байт является минимальным размером таких данных.
Var
n, a, b, c, d, s, p: integer;
begin
Write('Введите натуральное четырехзначное число: ');
Readln(n);
if (n > 9999) or (n < 1000) then Writeln('Число должно быть четырехзначным')
else begin
a := n div 1000; d := n mod 10; n := (n div 10) mod 100;
b := n div 10; c := n mod 10;
s := a + b + c + d;
p := a * b * c * d;
Writeln('Сумма цифр равна ', s, ', а их произведение равно ', p)
end
end.
<em><u>Тестовое решение:</u></em>
Введите натуральное четырехзначное число: 2345
Сумма цифр равна 14, а их произведение равно 120