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)

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