найти ошибку у меня в проверки 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.
Но нет, это и проблема учеников, вынужденных выполнять такие задания
Ответы
Ответ:
Здравствуйте!
Объяснение:
Тебе логический тип нужен для того, чтобы проверять равество <,>,
==, >=,<= например по так равенствам
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)
Дальше сам к хорошему варианту