21.11.2011, 18:17 | #1 (permalink) |
Member
Регистрация: 08.10.2011
Сообщений: 49
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 10
|
PascalABC,нужно найти ошибку
const n =5; type mas=array [1..n] of byte ; mn=set of byte; var k,c:integer; procedure vv( var a:mas); var i:integer; begin for i:=1 to n do begin write('a[',i,']='); readln(a[i]); end; end; procedure vv1(var m:mn); var i,k:integer; a:mas; begin for i:=1 to n do if a[i] in m then begin write(a[i]:3); k:=k+1; end; writeln; end; var n3,n8:mn; i:integer; a:mas; begin n3:=[]; n3:=[]; for c:=1 to n do begin if a[c] mod 3 = 0 then n3:=n3+[a[c]]; if a[c] mod 8 = 0 then n8:=n8+[a[c]]; end; writeln('введите числа:'); vv(a); writeln('числа кратные 3:'); vv1(n3); writeln('числа кратные 8:'); vv1(n8); writeln('количество элементов во множестве:', k); end. необходимо распечатать множество,удовлетворяющее указанному условию и подсчитать количество элементов в полученном множестве. Даны n целых чисел( числа вводятся с клавиатуры или с помощью датчика случайных чисел). Напечатать в порядке возрастания те из них, которые удовлетворяют условию: делятся нацело на 3 или 8. |
21.11.2011, 18:17 | |
Helpmaster
Member
Регистрация: 08.03.2016
Сообщений: 0
|
Сейчас лучшее, что можно сделать - это прочитать схожие посты Помогите, пожалуйста, найти ошибку в программе Помогите найти ошибку в программе Помогите найти ошибку, Pascal abc Задача на массивы, Pascal. Помогите найти ошибку Помогите найти ошибку |
Ads | |
Member
Регистрация: 31.10.2006
Сообщений: 40200
Записей в дневнике: 0
Сказал(а) спасибо: 0
Поблагодарили 0 раз(а) в 0 сообщениях
Репутация: 55070
|
|
|