Var N, lastNum, mod5: integer;
flag: boolean;
begin
readln(N);
lastNum := N mod 10;
mod5 := N mod 5;
flag := (lastNum = 5) or (lastNum = 0);
if flag then
writeln('Число ', N, ' делится на 5 по признаку делимости')
else
writeln('Число ', N, ' не делится на 5 по признаку делимости');
if (mod5 = 0) then
writeln('Число ', N, ' делится на 5 по определению')
else
writeln('Число ', N, ' не делится на 5 по определению');
flag := flag xor (mod5 = 0);
if flag then
writeln('Результаты не совпадают, это не признак делимости!')
else
writeln('Результаты совпадают, это возможно признак делимости')
end.
При совершении преступления " собирают инфу" потом,
"Обрабатывают ее", тоесть рассматривают улики и ищут схожесть и тд. , затем упрощается, для более легкого понимания . При обьяснении урока или темы мы "запоминаем инфу" , учитель передает ее, а мы ее принемаем. Разрушаются ( удаляется) .мы как обычно не все помним, кое-что забывается, тоесть мозг " удаляет " ненужную для нас инфу: вы помните то что ели на завтрак неделю назад? Так же информация можно измерить в писмености она измеряется буквами , в математике цифрами и занками , а в компе байтам и килобайтами и тд.
Мы можем "копировать" инфу : ксеракс "копирует" лист бумаги тоесть он копирует инфу , находящеюсегося на этом листке.
При пересказе текста мы чаще не все сразу читаем что бы пересказать, а читаем " часть " книги а потом еще и еще. Тоесть мы " делим ее"
//Pascal
//1)
var
A: array[1..5, 1..8] of integer;
i, j: byte;
sumR, sumC: integer;
begin
randomize;
writeln('Исходный массив':28);
for i := 1 to 5 do
begin
for j := 1 to 8 do
begin
A[i, j] := random(61)-30;
write(A[i,j]:5);
if i = 3 then sumR := sumR + A[i, j];
if j = 5 then sumC := sumC + A[i, j];
end;
writeln;
end;
writeln('Сумма элементов 5 столбца = ', sumC);
writeln('Сумма элементов 3 строки = ', sumR);
end.
//2)
var
A: array[1..5, 1..8] of integer;
i, j: byte;
sumA, sumB, countV, countG: integer;
begin
randomize;
writeln('Исходный массив':28);
for i := 1 to 5 do
begin
for j := 1 to 8 do
begin
A[i, j] := random(300)-150;
write(A[i,j]:5);
if ((i = 5) and (A[i, j] < 0)) then sumA := sumA + A[i, j];
if ((j = 4) and (A[i, j] < 100)) then sumB := sumB + A[i, j];
if ((i = 4) and (A[i, j] < 5)) then countV := countV + 1;
if ((j = 2) and (A[i, j] > 15)) then countG := countG + 1;
end;
writeln;
end;
writeln('Сумма отрицательных 5 строки = ', sumA);
writeln('Сумма меньших 100 4-ого столбца = ', sumB);
writeln('Количество меньших 5 4-ой строки = ', countV);
writeln('Количество ненулевых, больших 15 2-ого столбца = ', countG);
end.
Вроде так, верхнюю таблицу чертить не обязательно, она просто для того, чтобы не запутаться