Дано четырехзначное натуральное число.Определить является ли сумма первой и последней цифр кратной 3 Паскаль
Дано четырехзначное натуральное число.Определить является ли сумма первой и последней цифр кратной 3 Паскаль
Гость
Ответ(ы) на вопрос:
Гостьvar
iNum: integer;
begin
readln(iNum);
writeln((((iNum mod 10) + (iNum div 1000)) mod 3 = 0) ? 'Yes' : 'No');
end.
Не нашли ответ?
Похожие вопросы