Question

Найти ошибку у меня в проверки 57 баллов тл моё решение: var a,b,c,d,e,i:longint; begin readln(a,b); c:=0; for i:=b downto a do begin if (i mod 3 = 0) then c:=c+1; end; writeln(c); end.

Answer 1

Ответ:

Здравствуйте!

Объяснение:

Тебе логический тип нужен для того, чтобы проверять равество ＜,＞,

＝＝, ＞＝,＜＝ например по так равенствам

if (i mod 3 = 0) then c:=c+1;

Смутить должно переводя на простой язык, если целочисленный счетчик полелить с остатком на 3 и приравнятьк нулю то будет выражение c:＝c＋1; при этом у тебя нетк сравнение, а строго равно

for i:=b downto a do begin цик целочисленный счеткик(i:integer) у таких счетчиков другого типа нет. Дальше можно do begin продолжение операций и end; свидетельствует, что еще не все кончено можно двигатся дальше

После выводим строго выражении:

c:＝0; и c:=c+1; это одинаковые вещи, при логическом типе у тебя сравнение в этом месте не получется вот ругается проверяй на условие, при помощи равенств, а не

c:=c+1; если подставить получится

0:＝0＋1; конечно по коду так считать, а после сравнивать не будет целочисленный и логический совершенно разные boolean или integer;

var

a,b,c,d,e:longint;

i:integer;

begin

for i:=1; to 5 do begin

(i mod 3＞ =0)

Дальше сам к хорошему варианту

Answer 2

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

Ошибка заключается в том, что вы проверяете условие i mod 3 = 0 для подсчёта чисел, которые делятся на 3. Однако, вам нужно подсчитать числа, которые делятся на 5. Чтобы исправить это, вам следует изменить условие на i mod 5 = 0.

Вот исправленный код:

pascalCopy code
var
  a, b, c, i: longint;

begin
  readln(a, b);
  c := 0;
  
  for i := a to b do
  begin
    if (i mod 5 = 0) then
      c := c + 1;
  end;
  
  writeln(c);
end.

Теперь этот код будет подсчитывать и выводить количество чисел в интервале [a, b], которые делятся на 5.