Question

Вывести все числа от 1 до 10000 оканчивающиеся на 8 и делящиеся на 3. на Паскале, программа полностью.

Answer 1

var a:integer;

begin

for a:=1 to 10000 do

begin

if (a mod 10 =8)and(a mod 3 =0) then writeln(a);

end;

end.

Answer 2

Вот пример кода на Pascal, который выводит все числа от 1 до 10000, которые оканчиваются на 8 и делятся на 3:

vbnetCopy code
program NumbersEndingIn8AndDivisibleBy3;
var
   i: integer;
begin
   for i := 1 to 10000 do
   begin
      if (i mod 10 = 8) and (i mod 3 = 0) then
         writeln(i);
   end;
end.

Как работает программа:

1. Мы объявляем переменную "i", которую мы будем использовать для итерации от 1 до 10000.
2. Затем мы используем цикл "for", чтобы перебрать все числа от 1 до 10000.
3. Внутри цикла мы проверяем, оканчивается ли число на 8 и делится ли оно на 3, используя операторы mod (остаток от деления).
4. Если число удовлетворяет обоим условиям, мы выводим его на экран с помощью процедуры "writeln".

Программа выводит все числа от 1 до 10000, которые оканчиваются на 8 и делятся на 3.