HOME FORUMS MEMBERS RECENT POSTS LOG IN  
× Авторизация
Имя пользователя:
Пароль:
Нет аккаунта? Регистрация
Баннер 1   Баннер 2
НОВЫЕ ТОРГОВАЯ НОВОСТИ ЧАТ
loading...
Скрыть
Вернуться   ANTICHAT > ПРОГРАММИРОВАНИЕ > С/С++, C#, Rust, Swift, Go, Java, Perl, Ruby
   
 
 
Опции темы Поиск в этой теме Опции просмотра

[PASCAL]
  #11  
Старый 24.12.2009, 22:03
P.A.U.L
Познающий
Регистрация: 12.08.2009
Сообщений: 32
С нами: 8815306

Репутация: 0
По умолчанию [PASCAL]

Помогите плз доделать лабу...

В коде чего то не хватает для нормальной работы программы, но только понять не могу чего...

Здача:
Составить функцию, которая возвращает значение 0, если в последовательности целых чисел а1,а2,...аn отсутствуют три соседних нечетных числа, или номер первого числа встретившейся тройки таких чисел...

Код:

Код:
program proverka;
uses crt;
const n=10;
var c,i:integer;

function proverk (var a:array of integer):integer;
  var i,j:integer;
  begin
    for i:=1 to n-2 do
      if b[i] mod 2 <> 0 then
	if b[i+1] mod 2 <> 0 then
	  if b[i+2] mod 2 <> 0 then
	    begin
	     proverk:=i;
	     exit;
	    end;
      proverk:=0;
  end;
begin
 clrscr;
  for i:= 1 to n do begin
  readln(a[i]);
  c:=proverk(a[i]);
  write('   ',c);
  writeln;
  end;
end.
 
Ответить с цитированием
 



Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Американским студентам запретили пользоваться Skype KPOT_f!nd Мировые новости. Обсуждения. 1 28.09.2006 03:47
Любителям квестов сюда!! FoX's Болталка 10 25.01.2005 20:42



Здесь присутствуют: 1 (пользователей: 0 , гостей: 1)
 


Быстрый переход




ANTICHAT ™ © 2001- Antichat Kft.