последовательность чисел |
1. Заголовок темы должен быть информативным. В противном случае тема удаляется ...
2. Все тексты программ должны помещаться в теги [code=pas] ... [/code], либо быть опубликованы на нашем PasteBin в режиме вечного хранения.
3. Прежде чем задавать вопрос, см. "FAQ", если там не нашли ответа, воспользуйтесь ПОИСКОМ, возможно такую задачу уже решали!
4. Не предлагайте свои решения на других языках, кроме Паскаля (исключение - только с согласия модератора).
5. НЕ используйте форум для личного общения, все что не относится к обсуждению темы - на PM!
6. Одна тема - один вопрос (задача)
7. Проверяйте программы перед тем, как разместить их на форуме!!!
8. Спрашивайте и отвечайте четко и по существу!!!
последовательность чисел |
Гость_Роман |
Сообщение
#1
|
Гость |
1 Дана последовательность натуральных чисел а1,а2,... ,аn. Создать массив из чётных чисел Этой последовательности. Если таких чисел нет, то вывести сообщение об этом факте.
2 Последовательность действительных чисел оканчивается нулём. Найти количество членов этой последовательности. 3 Дана последовательность чисел а1,а2,... ,аn. Указать наименьшую длину числовой оси, содержащую все эти числа. |
klem4 |
Сообщение
#2
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
1)
Код uses crt; const n=5; var x,y:array[1..n] of integer; i,m:integer; Begin clrscr; m:=0; for i:=1 to n do begin readln(x[i]); if x[i] mod 2 = 0 then begin inc(m); y[m]:=x[i]; end; end; writeln; if m=0 then writeln('NO') else for i:=1 to m do writeln(y[i]); readln; end. Поиск и FAQ вам помогут. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 |
Сообщение
#3
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
2) смотри тут, хочешь массивом, хочешь без (решение Volvo в самом низу): http://forum.pascal.net.ru/forum/index.php?showtopic=3824
см. Задача N1. очень похожа -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
klem4 |
Сообщение
#4
|
Perl. Just code it! Группа: Пользователи Сообщений: 4 100 Пол: Мужской Реальное имя: Андрей Репутация: 44 |
3) не очень понял уловие.
Код uses crt; const n=5; var x:array[1..n] of integer; min,max:integer; i:integer; Begin clrscr; for i:=1 to n do readln(x[i]); min:=1; max:=1; for i:=2 to n do begin if x[i]>x[max] then max:=i; if x[i]<x[min] then min:=i; end; writeln('Otrezok ot ',x[min],' do ',x[max]); writeln('Ego dlinna = ',x[max]-x[min]); readln; end. -------------------- perl -e 'print for (map{chr(hex)}("4861707079204E6577205965617221"=~/(.{2})/g)), "\n";'
|
Текстовая версия | 10.05.2024 3:49 |