Question

Найти все трехзначные числа кратные 5 ? Паскаль. Тема циклы.

Answer 1

105 120 125 130 135 140 145 150 160 165 170 175 180 185 190 195 205 210 215 230 235 240 245 250 260 265 270 275 280 285 290 295 305 310 315 320 325 340 345 350 360 365 370 375 380 385 390 395 405 410 415 420 425 430 435 450 460 465 470 475 480 485 490 495 510 520 530 540 560 570 580 590 605 610 615 620 625 630 635 640 450 650 670 675 680 685 690 695 705 710 715 720 725 730 735 740 745 750 760 765 780 785 790 795 805 810 815 820 825 830 835 840 845 850 860 865 870 875 890 895 905 910 915 920 925 930 935 940 945 950 960 965 970 975 980 985 990 995 вот все!

Answer 2

Var i:integer;
begin

for i := 100 to 999 do

if(i mod 5 = 0) then
writeln(i);

end

Answer 3

В языке программирования Pascal для нахождения всех трехзначных чисел, кратных 5, можно воспользоваться циклом. Приведу пример кода на Pascal, использующего цикл для решения данной задачи:

program FindMultiplesOfFive;

var
  number: integer;

begin
  writeln('Трехзначные числа, кратные 5:');

for number := 100 to 999 do
  begin
    if (number mod 5 = 0) then
    begin
      writeln(number);
    end;
  end;

readln;
end.

В этом примере используется цикл `for`, который перебирает все трехзначные числа от 100 до 999. Оператор `mod` возвращает остаток от деления, и мы проверяем, является ли остаток от деления числа на 5 равным нулю. Если это так, то число кратно 5, и оно выводится на экран.

Программа выведет все трехзначные числа, кратные 5, в диапазоне от 100 до 999. Если вы хотите изменить диапазон, просто измените значения в операторе `for`.

Надеюсь, это поможет!