Системное администрирование

Задача на Паскаль

Напишите программу подсчета количества всех натуральных чисел не превосходящих 500, кратных семи и не кратных восьми
МС
Максим Сироткин
106 
 program CountNumbers; 

 

var 

  count: integer; 

  i: integer; 

 

begin 

  count := 0; 

  for i := 1 to 500 do 

  begin 

    if (i mod 7 = 0) and (i mod 8  0) then 

    begin 

      count := count + 1; 

    end; 

  end; 

  writeln('Количество чисел: ', count); 

  readln; 

end.
Юрий Мойся
Юрий Мойся
856
Лучший ответ 
 begin write(500 div 7 - 500 div (7 * 8)) end.
И это ВЕСЬ код программы, решающей данную задачу.
Бессмысленно решать циклом арифметическую задачу для начальной школы.
Владимир Побережнюк
Владимир Побережнюк
62 865
Тут можно 2 способами это сделать:

1) Классически через цикл:
 Program P1; 

uses crt; 

var i, n: integer; 

begin 

clrscr; 

n:=0; 

for i:=1 to 500 do if (i mod 7=0) and (i mod 80) then n:=n+1; 

writeln ('Количество натуральных чисел, кратных 7 и не кратных 8 составляет: ', n); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
2-ой способ (без цикла):
 Program P1; 

uses crt; 

begin 

clrscr; 

writeln ('Количество натуральных чисел, кратных 7 и не кратных 8 составляет: ', 500 div 7-500 div (7*8)); 

write ('Программа завершена. Для выхода нажмите клавишу Enter.'); 

readkey; 

end.
Борис Козловский
Борис Козловский
43 559
PascalABC.NET:
 begin 

  range(1, 500).Where(x -> (x mod 7 = 0) and (x mod 8  0)).Count.Print 

end.
Сержик Побережнюк
Сержик Побережнюк
2 589
Хорошая задачка. Вот пример кода на языке Паскаль, который решает данную задачу:


 program CountNumbers; 

 

var 

  i, count: integer; 

 

begin 

  count := 0; // начальное значение счетчика 

 

  for i := 1 to 500 do // перебираем все натуральные числа от 1 до 500 

  begin 

    if (i mod 7 = 0) and (i mod 8  0) then // если число кратно 7 и не кратно 8 

      count := count + 1; // увеличиваем счетчик на 1 

  end; 

 

  writeln('Количество чисел, удовлетворяющих условию: ', count); 

  readln; 

end.
Программа использует цикл for, чтобы перебрать все натуральные числа от 1 до 500. Затем для каждого числа проверяется, кратно ли оно 7 и не кратно ли оно 8, используя операторы модуля (mod) и сравнения (= и <>). Если число удовлетворяет условию, то счетчик увеличивается на 1. В конце программы выводится количество чисел, удовлетворяющих условию, на экран.
Руслан Дисюк
Руслан Дисюк
1 712

Похожие вопросы