Найти ошибку у меня в проверки 57 баллов тл моё решение: var...

+964 голосов
3.2m просмотров

Найти ошибку у меня в проверки 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.


Информатика (29 баллов) | 3.2m просмотров
+112

90х даже - время расцвета Борланд.
Но нет, это и проблема учеников, вынужденных выполнять такие задания

+141

Ну это уже проблемы учителей, что они застряли в начале 2000-х

+125

Это все классно, только ученикам тут задания дают под старый турбопаскаль и ответы на свои вопросы они ожидают соответствующие

Дан 1 ответ
+136 голосов

Ответ:

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

Объяснение:

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

==, >=,<= например по так равенствам

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)

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

(98 баллов)
+147

С другой стороны пусть сам подумает это наводка, как только вообще нечего думаю тогда напишу код или ты напишешь. Разнице не какой

+46

Если прочитать всё это от начала до конца, то будет казаться что текст сгенерен какой то нейросетью

+66

Что-то поменялось, но нужно отталкиватся от задание, что конкретно требуется и свой код, чтобы исправили, захотел пусть так будет без do begin можно обойтись, но если хочет так

+153

и если у него размах от -10^9 то i тоже лонгинтом должно быть

+115

ничего не поменяло