Question

Найти все трехзначные числа, у которых сумма крайних цифр. равна 5 , а само число делятся на 3(Pascal)

Answer 1

Var i:integer;
begin
for i:=100 to 999 do
if ( i mod 100 div 10+i mod 10=5 ) and (i mod 3 = 0) then writeln(i);
end.

Answer 2

Для решения этой задачи вам потребуется найти все трехзначные числа, у которых сумма крайних цифр равна 5 и которые делятся на 3.

Алгоритм решения:

1. Найдите все трехзначные числа, у которых сумма крайних цифр равна 5. 2. Отфильтруйте найденные числа, оставив только те, которые делятся на 3. 3. Выведите полученные числа.

Решение на языке Pascal:

```pascal program FindNumbers; var number: integer; begin for number := 100 to 999 do begin if (number mod 10 + number div 100) = 5 then begin if number mod 3 = 0 then writeln(number); end; end; end. ```

После выполнения этой программы будут выведены все трехзначные числа, у которых сумма крайних цифр равна 5 и которые делятся на 3.

Примечание: Пожалуйста, обратите внимание, что результаты могут отличаться в зависимости от языка программирования и окружения, в котором вы выполняете программу.