Дано трёхзначное число, проверить является ли цифраотвечающая за сотни кратно 3. Ответить языком Паскаля
Ответ:
read (a);
b := (a - (a mod 100))/100;
if b mod 3 = 0 then print ('кратно') else print ('не кратно');
Объяснение: