Question

Дано трёхзначное число, проверить является ли цифраотвечающая за сотни кратно 3. Ответить языком Паскаля

Answer 1

Ответ:

read (a);

b := (a - (a mod 100))/100;

if b mod 3 = 0 then print ('кратно') else print ('не кратно');

Объяснение: