Подправте задачу плз! - Помощь студентам

DiNis · 15.02.2009, 21:44

Дана непустая последовательность целых чисел, окан-
чивающаяся числом 100. Определить, есть ли в последова-
тельности число 77. Если имеются несколько таких чисел,
то определить порядковый номер первого из них.
Мой код:
var a,k:integer;
i:integer;
begin
i:=0;
k:=77;
repeat
read(a);
i:=i+1;
until(a=100);
if k=77 then writeln(i)
else writeln('NO');
end.
ошибки поясніть плз

Arigato · 15.02.2009, 21:47

Цитата:

Подправте задачу плз!

Извините, но Ваш бред подправлять даже не хочется. Добейтесь хотя бы, что бы не было ошибок компиляции, потом поговорим о дальнейших шагах.

начинающий кодер · 15.02.2009, 21:58

http://programmersforum.ru/showthread.php?t=36237 это же надо так задачу испортить!

maladoy · 15.02.2009, 22:03

2Dinis кстати назвать 4 ника с этим,которые вы создали правда неизвестно зачем!
sinid
dinis
siroga35
ритка-пулеметчица(по украински не умею писать!)

DiNis · 15.02.2009, 22:26

Цитата:

Сообщение от начинающий кодер

http://programmersforum.ru/showthread.php?t=36237 это же надо так задачу испортить!

Прошлие варианти препод не одобрил. Решил сам попробовать.
Код переделал

15.02.2009, 21:44	#1
DiNis Заблокирован Регистрация: 11.01.2009 Сообщений: 28	Подправте задачу плз! Дана непустая последовательность целых чисел, окан- чивающаяся числом 100. Определить, есть ли в последова- тельности число 77. Если имеются несколько таких чисел, то определить порядковый номер первого из них. Мой код: var a,k:integer; i:integer; begin i:=0; k:=77; repeat read(a); i:=i+1; until(a=100); if k=77 then writeln(i) else writeln('NO'); end. ошибки поясніть плз Последний раз редактировалось DiNis; 15.02.2009 в 22:27.

15.02.2009, 21:58	#3
начинающий кодер только учусь! Форумчанин Регистрация: 08.02.2009 Сообщений: 124	http://programmersforum.ru/showthread.php?t=36237 это же надо так задачу испортить! «Я знаю, что ничего не знаю, но многие не знают и этого».

15.02.2009, 22:03	#4
maladoy delphi-ст! Форумчанин Регистрация: 02.01.2009 Сообщений: 825	2Dinis кстати назвать 4 ника с этим,которые вы создали правда неизвестно зачем! sinid dinis siroga35 ритка-пулеметчица(по украински не умею писать!) вступлю в команду разработчиков ПО на Delphi

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
не могу решить задачу по Basic....помогите плз	aly17	Помощь студентам	9	13.02.2009 20:32
Помогите подправте программу на whale	Fylhtq	Паскаль, Turbo Pascal, PascalABC.NET	0	07.01.2009 10:54
помогите плз!	nok	Безопасность, Шифрование	6	18.02.2007 10:21