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.
Смотря для какого тебе языка надо, вот для VisualBasic
Sub Neskolko_Chisel
Dim Sum, i, a, N As Integer
N = InputBox("Введите количество чисел")
For i = 1 to N
a = InputBox("Введите число")
Sum = Sum + a
Next i
End Sub
вот для с++
#include <iostream>
#include <conio.h>
using namespace std;
int main()
{
setlocale(LC_ALL, "Russian");
int a, N, Sum, i;
Sum = 0;
N = 0;
a= 0;
cout << "Введите количество чисел! ";
cin >> N;
for (i = 1; i <= N; i++)
{
cout << "Введите число!" ;
cin >> a;
Sum = Sum + a;
}
cout << Sum;
_getch();
}
