Var i,s,p,max:integer;
a:array[1..10] of integer; // описание переменных
begin
s:=0;
p:=1;
max:=1;
for i:=1 to 10 do // Цикл в котором находится:
begin
a[i]:=random(100); // генерация рандом чисел
write(a[i]:5); // вывод всего массива
s:=s+a[i]; // нахождение суммы
p:=p*a[i]; // нахождение произведения
end;
for i:=1 to 10 do // цикл для нахождения максимального в массиве
if a[i]>max then max:=a[i];
writeln;
writeln('Summa: ',s); // Все что ниже вывод резельтатов.
writeln('Proizvedenie: ',p);
writeln('Maximalnoe: ',max);
end.
Устройства ввода - клавиатура, dvd, мышь.
Устройства вывода - dvd, принтер, радио.
Обработка - компьютер, телефон.
Опишите множества D1,D2,D3. Заполните их соответственно числами 2,4,6,8; 0,1,2,3,5; 1,3,5,7,9. Выполните над множествами операци
malol
Program Dafnochka;
uses crt;
type
TypeD=set of 0..10;
var
dr,d1,d2,d3:TypeD;
c:integer;
begin
d1:=[2,4,6,8];
d2:=[0,1,2,3,5];
d3:=[1,3,5,7,9];
{вывод множеств}
writeln('Множество D1:');
for c:=0 to 10 do
if c in d1 then
write (' ',c,' ');
writeln();
writeln();
writeln('Множество D2:');
for c:=0 to 10 do
if c in d2 then
write (' ',c,' ');
writeln();
writeln();
writeln('Множество D3:');
for c:=0 to 10 do
if c in d3 then
write (' ',c,' ');
writeln();
writeln();
{примеры}
dr:=d1+d2;
writeln('Пример 1 - объединение множеств D1 U D2');
for c:=0 to 10 do
if c in dr then
write (' ',c,' ');
writeln();
dr:=d2-d3;
writeln();
writeln('Пример 2 - разность множеств D2\D3');
for c:=0 to 10 do
if c in dr then
write (' ',c,' ');
writeln();
dr:=d2*d3;
writeln();
writeln('Пример 3 - пересечение множеств D2 П D3');
for c:=0 to 10 do
if c in dr then
write (' ',c,' ');
writeln();
end.
Первая задача: мы не можем получить числа, меньшие 6 (т.к. даже если использовать самые маленькие числа: 2 + 1 + 1 + 1 + 1 = 6) и больше 10 (т.к. 2 + 2 + 2 + 2 + 2 = 10)
Но все числа от 6 до 10 включительно получить можно:
6: 1111
7: 1112
8: 1122
9: 1222
10: 2222
Вторая:
11211
