Program1.pas(4) : Повторно объявленный идентификатор A
Код отказывается работать. Помогите с решением пж
program P152;
var a, b, count, i: integer;
const A=a;
const B=b;
line:array of integer = [A..B];
begin
count:=0;
readln(a);
readln(b);
for i:=a to b do
if line[i] mod 2 = 0 then
count:=count+1;
writeln(count);
end.
var a, b, count, i: integer;
const A=a;
Для паскаля A и a одинаковые переменные или идентификатор...то, с помощью чего опознаешь. И это правильно то, а то читаться должно и так и так. Но вот в си-подобных языках различаются идентификаторы A и a
У тебя ошибка на ошибке и ошибкой погоняет. Простейшее решение:
program P152;
var a,b:integer;
begin readln(a,b); writeln((b-b and 1-a-a and 1)div 2+1); end.
Обычный Паскаль не позволяет объявить массив в неизвестном наперед диапазоне.
Вы можете объявить какой-нибудь большой массив (например, от 0 до 10000) и ожидать ввод границ a и b в пределах этого массива.