Если я не ошибаюсь, то двоек здесь 1997, т. к если из 10 в степени 2000 вычесть 10 в степени 3, то получиться три нуля и 1997 двоек, а когда прибавляем 10 в степени 2017 количество двоек не увеличивается и не уменьшается
10 - это 3 в троичной системе счисления
Вы в интернете посмотри готовое домашнее задание класс и писателя книги. там найдете
По идее ок)
program prim;
var a:array [1..3] of integer;
i:integer;
c:integer;
begin
write('Введите 3 числа: ');
for i:=1 to 3 do
readln(a[i]);
for i:=1 to 3 do
if a[i] > c then c:=a[i];
if (c mod 3=0) then
writeln(c, ' кратно 3')
else
writeln(c, ' не кратно 3');
end.
Держи! В файле прикрепил или на скриншоте смотри :)