Определить правильность написания строки кода - Pascal ABC

Формулировка задачи:

Можно ли так писать? while (b[3]<>b1[3]) and (b[2]<>b1[2]) and (b[1]<>b1[1]) do begin? Добавлено через 9 минут
Сообщение от Arxans
Можно ли так писать? while (b[3]<>b1[3]) and (b[2]<>b1[2]) and (b[1]<>b1[1]) do begin?
(b,b1:array[1.100] of integer

Код к задаче: «Определить правильность написания строки кода - Pascal ABC»

textual
i:=1;
while(i<n-1)and(b[i]<>b1[i]) and (b[i+1]<>b1[i+1]) and (b[i+2]<>b1[i+1]) do
i:=i+1;
if i>n-2 then write('нету')else write('есть')

8   голосов, оценка 3.375 из 5


СОХРАНИТЬ ССЫЛКУ