|
|
Регистрация Восстановить пароль |
Регистрация | Задать вопрос |
Заплачу за решение |
Новые сообщения |
Сообщения за день |
Расширенный поиск |
Правила |
Всё прочитано |
Нет наработок или кода, если нужно готовое решение - создайте тему в разделе Фриланс и оплатите работу. Название темы включает слова - "Помогите", "Нужна помощь", "Срочно", "Пожалуйста". Название темы слишком короткое или не отражает сути вашего вопроса. Тема исчерпала себя, помните, один вопрос - одна тема Прочитайте правила и заново правильно создайте тему. |
|
Опции темы | Поиск в этой теме |
13.12.2013, 19:04 | #1 |
Регистрация: 04.11.2013
Сообщений: 7
|
!!!Pascal!!!
Найдите, пожалуйста, ошибку в программе:
Program SUMMA; Uses crt; Const N=10 Var k,i; Integer; a: array [1…N] of integer; Begin clrscr; k:=0; For i:=1 to N do begin readln (a[i]); If I/2=I div2 then k:=k+A[i] end; writeln (‘k=’,k); readln; end. Условие: найти сумму элементов с чётными номерами из последовательности n чисел. |
13.12.2013, 19:27 | #2 |
Пользователь
Регистрация: 11.12.2013
Сообщений: 56
|
проверка на четность делается так: if (i mod 2 = 0) then...
|
13.12.2013, 19:32 | #3 |
Участник клуба
Регистрация: 05.11.2013
Сообщений: 1,601
|
Код:
Последний раз редактировалось ZX Spectrum-128; 13.12.2013 в 19:34. |
Похожие темы | ||||
Тема | Автор | Раздел | Ответов | Последнее сообщение |
pascal abc, pascal turbo. выборка данных из одного .txt в другой | ТипичныйСтудент | Помощь студентам | 6 | 27.04.2013 15:29 |
Задача turbo pascal на тему: файлы с произвольным доступом в Pascal | ExCiTeC | Паскаль, Turbo Pascal, PascalABC.NET | 0 | 28.01.2013 20:36 |
Программы в Pascal, среда pascal ABC. Лабораторные работы | Одинокая Волчица | Фриланс | 8 | 10.02.2012 20:09 |
Turbo Pascal и Free Pascal , в чем разница? | antoxann | Паскаль, Turbo Pascal, PascalABC.NET | 31 | 09.11.2011 07:52 |
а free pascal не читает задачи которые написаны на turbo pascal? | demonara | Паскаль, Turbo Pascal, PascalABC.NET | 3 | 25.05.2009 16:28 |