• B правой части каждого сообщения есть стрелки и . Не стесняйтесь оценивать ответы. Чтобы автору вопроса закрыть свой тикет, надо выбрать лучший ответ. Просто нажмите значок в правой части сообщения.

  • Познакомьтесь с пентестом веб-приложений на практике в нашем новом бесплатном курсе

    «Анализ защищенности веб-приложений»

    🔥 Записаться бесплатно!

  • CTF с учебными материалами Codeby Games

    Обучение кибербезопасности в игровой форме. Более 200 заданий по Active Directory, OSINT, PWN, Веб, Стеганографии, Реверс-инжинирингу, Форензике и Криптографии. Школа CTF с бесплатными курсами по всем категориям.

Ребят,помогите подправить программу

  • Автор темы deniska92
  • Дата начала
D

deniska92

Имеется вот такой вариант программы в ПАСКАЛЕ:
примерно так:
Код:
var n1,n2,d1,d2:integer;
s:string;
ind:boolean;
begin
s:='';
n1:=nil;
d1:=nil;
ind:=true;
n2:=0;
while (ind=true)and(n2-100) do
begin
readln(n2);
if n2=-100 then begin ind:=false; break; end;
if n1nil then d2:=n1-n2;
if (d1nil)and(n1nil) then 
if d1d2 then begin ind:=false; s:='net'; end else s:='da';

n1:=n2;
end;
writeln(s);
readln;
end.

При запуске в FreePascal выбивает 9 ошибок.Помогите решить проблему пожалуйста.
 
M

mss

> FreePascal выбивает 9 ошибок

Спрашивается, для КОГО он их "выбивает" ?
Вникай в смысл каждого сообщения !
 
D

Dock1100

:welcome:
Код:
var n1,n2,d1,d2:integer;
s:string;
ind:boolean;
begin
s:='';
n1:=-32768;
d1:=-32768;
d2:=-32768;
ind:=true;
n2:=0;
while (ind=true)and(n2<>-32768) do
begin
readln(n2);
if n2=-32768 then begin ind:=false; break; end;
if n1<>-32768 then d2:=n2-n1;
if (d1<>-32768)and(n1<>-32768) then
if d1<>d2 then begin ind:=false; s:='net'; end else s:='da';

n1:=n2;
d1:=d2;
end;
writeln(s);
readln;
end.
 
Мы в соцсетях:

Обучение наступательной кибербезопасности в игровой форме. Начать игру!