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

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

v - объём цилиндрачисло пи = 3,14язык программирования: паскальvarv, r, h : real; beginreadln (r); readln (h); v : = 3.14 * sqr(r) * h; writeln (v)end.

program xxx;   var i, n, max : integer;         s : real;         a : array [1..20] of integer; begin  write ('введите n= ');   readln(n);   for i: =1 to n do      readln (a[i]);   max: = a[1];   for i: =1 to n do      if a[i] > max then max : = a[i];   s: = sqrt(max);   write ('корень из наибольшего эл-та =', s)end.