IPB
ЛогинПароль:

> Прочтите прежде чем задавать вопрос!

1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!

 
 Ответить  Открыть новую тему 
> Помогите доделать задачку,совсем мелочь, Помогите доделать задачку,совсем мелочь осталась а понять не могу!
сообщение
Сообщение #1





Группа: Пользователи
Сообщений: 2
Пол: Мужской
Реальное имя: Vb

Репутация: -  0  +


Добрый вечер всем.У меня возникла такая проблема...Не могу до конца решить задачу:дана последовательность чисел a1,a2,..a50Получить сумму членов ai данной последовательности,которые
1)кратные 5
2)Нечётный и отрицательные
3) удовлетворяют условию |ai|<i в квадрате...
Сумму вывести на печать и числа её образующие.
Прогу всю сделал вот только не поучается вывести числа которые образуют сумму помогите пож.
Вот мой код
uses
crt;
var
a:array[1..50] of integer;
i,n,z:integer;
begin
clrscr;
writeln;
writeln('----------------------------------------');
writeln('vvedite posledovatelnost chisel');
writeln('posle vvoda kazhdogo chisla nazhmi enter');
writeln('----------------------------------------');
for i:=1 to 50 do begin
begin
writeln('a[',i,'] ');
readln(a[i]);
z:=a[i] mod 5;
if z=0 then
z:=a[i] mod 2;
if z<0 then
if abs(a[i])<sqr(i) then begin
writeln(a[i],' ');
N:=N+a[i];
end;
end;
end;
writeln('-----------------------------------------');
write('Summa chlenov novoi posledovatelnosti ravna'',',n);
writeln('-----------------------------------------');
readln;
end.



Прикрепленные файлы
Прикрепленный файл  2LABA_PO.PAS ( 762 байт ) Кол-во скачиваний: 149
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 
сообщение
Сообщение #2


ыыыыщщщщщщыыыы
**

Группа: Пользователи
Сообщений: 68
Пол: Мужской
Реальное имя: Иван

Репутация: -  0  +


Я так понял, тебе попунктно надо все это выводить
Цитата

1)кратные 5
2)Нечётный и отрицательные
3) удовлетворяют условию |ai|<i в квадрате...

А ты все это делаешь в одной куче...

Проверяй по одному условию, если число из последовательности проходит по условию, сразу выталкивай его на печать, а сумму увеличивай

Добавлено через 16 мин.

uses
crt;
var
a:array[1..50] of integer;
i,n,z:integer;
begin
clrscr;
writeln;
writeln('----------------------------------------');
writeln('vvedite posledovatelnost chisel');
writeln('posle vvoda kazhdogo chisla nazhmi enter');
writeln('----------------------------------------');
for i:=1 to 50 do
begin
writeln('a[',i,'] ');
readln(a[i]);
end;
for i:=1 to 50 do if (a[i] mod 5)=0 then
begin
n:=n+a[i];
write(a[i],' ');
end;
writeln('s1=',n);
n:=0;
writeln;
for i:=1 to 50 do if (odd(a[i])) and (a[i]<0) then
begin
write(a[i],' ');
n:=n+a[i];
end;
writeln('s2=',n);
n:=0;
writeln;
for i:=1 to 50 do if abs(a[i])<sqr(i) then
begin
write(a[i],' ');
n:=n+a[i];
end;
writeln('s3=',n);
readkey;
end.


Сообщение отредактировано: Feagor -


--------------------
Никогда не задавайте вопрос, если не уверены, что хотите получить ответ...
 Оффлайн  Профиль  PM 
 К началу страницы 
+ Ответить 

 Ответить  Открыть новую тему 
1 чел. читают эту тему (гостей: 1, скрытых пользователей: 0)
Пользователей: 0

 





- Текстовая версия 24.11.2020 13:35
500Gb HDD, 6Gb RAM, 2 Cores, 7 EUR в месяц — такие хостинги правда бывают
Связь с администрацией: bu_gen в домене octagram.name