(если сумма цифр числа делится на 3, то число делится на 3 нацело)
var a, s: integer;
begin
s:=0;
writeln ('Введите число');
while a<> 0 do
begin
a:= a mod 10
S:=s+a;
end;
if S mod 3 = 0 then writeln ('делится') else
writeln ('не делится');
end.
Program p1;
const N=10;
var i,max,sum:integer;
a:array[1..10] of integer;
begin
randomize;
max:=0;
sum:=0;
for i:=1 to N do a[i]:=1+random(10);
for i:=1 to N do write(a[i],' ');
for i:=1 to N do
if (a[i]>max) then max:=a[i];
writeln;
writeln('Максимальное число: ',max);
for i:=1 to N do
if(a[i]=max) then sum:=sum+1;
write('Количество максимальных чисел: ',sum);
end.
Сначала массив будет
состоять из чисел от 0 до 9 в обратном направлении: 9, 8, 7, 6, 5, 4, 3, 2, 1,
0
<span>Потом, из числе от 0 до 9 в прямом направлении: 0, 1,
2, 3, 4, 5, 6, 7, 8, 9</span>
До сборки комплектующие компьютера не образуют систему, после сборки образуют (т.к. взаимодействуют между собой), после выключения компьютера также образуют систему.