Множества(Паскаль)

[fisher94]

Построить и распечатать множества из диапазона чисел от 1 до 80:
1)F - множество чисел, не содержащих цифры от 1 до 5.
2)E - множество чисел, кратных 10.

[VIK_aka_TOR]

коль такой ленивый на наработки... то вводи все значения ручками...)

[fisher94]

Я просто успешно эту тему проболел. Поэтому прошу помощи.

[Hacker19_90]

Вот вам для множества F разбирайтесь

var
    f: set of byte;
    i, j: byte;
begin
    for i := 0 to 8 do
        for j := 0 to 9 do
            if (not(i in [1..5]) and not(j in [1..5])) and ((i+j) <> 0) then
            f := f + [10*i + j];
    for i := 1 to 80 do
        if i in f then Write (i:3);
    Readln;
end.

[Лубышев]

чоб создать массив

var F:array[0..80] of integer; {например}

что еще не проходил? циклы?

for i:=0 to 80 do
begin
...
end;

датчик случайных чисел?

random(твое_число); {например random(10)}

присвоение переменной значения?

F[порядковый_номер]:=твоя_функция(аргумент);

иль не знаешь как сделать числа кратные 10?

так это например так

random(999)*10;

иль чтобы любое выпавшее число было больше пяти?

random(40)+5;

[Hacker19_90]

2 Лубышев

чоб создать массив

Каким боком тут массивы?

[Лубышев]

очитался) но какая разница)

[fisher94]

Спасибо всем огромное)