А) (a mod 1 = 0) And (a mod a = 0)
Б) a mod 1 = 0
В)(a >= 10) and (a<= 99)
Правильный ответ под буквой D
var
a:array[1..100] of integer;
povt,i,j,elem:integer;
begin
povt:=0;
randomize;
for i:=1 to 100 do
a[i]:=random(1001);
for j:=1 to 100 do
povt:=0;
begin
for i:=1 to 100 do
if a[i]=a[j] then
begin
elem:=a[i];
povt:=povt+1;
end;
povt:=povt-1;
write('Число= '+elem+ ' Количество повторений= '+ povt);
end;
Var
A:integer;
Begin
WriteLn('Введите трёзхначное число');
ReadLn(A);
WriteLn(A mod 10, (A div 10) mod 10, A div 100);
End.
Если элемента массива равен полусумме соседних элементов, то вывести его:
Делаем трассировку
i = 2; M[i] = 1; (-2 + -1)/2 = -1,5 | -
i = 3; M[i] = -1; (1 + -2)/2 = -0,5 | -
i = 4; M[i] = -2; (-1 + -3)/2 = -2 | +
i = 5; M[i] = -3; (-2 + -2)/2 = -2 | -
i = 6; M[i] = -2; (-3 + 3)/2 = 0 | -
i = 7; M[i] = 3; (-2 + 8)/2 = 3 | +
Ответ: -2, 3