Множество a состоит из 101 элементов, множество b — из 202 элементов, а множество a∩b из 69 элементов. - id939375420230118 от Праемпт 18.01.2023 13:51

Question

Информатика: Множество a состоит из 101 элементов, множество b — из 202 элементов, а множество a∩b из 69 элементов. заполни пустые окошки. а) элемент(ов) принадлежит множеству a, но не принадлежит множеству b; б) элемент(ов) принадлежит множеству b, но не принадлежит множеству a; в) элемент(ов) принадлежит множеству a∪b

Праемпт · Accepted Answer

Можно так:

Var
A,i,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
For i:= 1 to 6 do
    Begin
    S:=S + (A mod 10);
    A:=A div 10;
    End;
WriteLn('S = ',S)
End.

И так:

Var
A,S:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
S:=0;
S:=A mod 10;
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
A:=A div 10;
S:=S + (A mod 10);
WriteLn('S = ',S)
End.

Или так

Var
A:integer;
Begin
WriteLn('Введите 6-значное число:');
ReadLn(A);
WriteLn('S = ',(A div 100000)+((A div 10000)mod 10)+((A div 1000)mod 10)+((A div 100)mod 10)+((A div 10)mod 10)+(A mod 10))
End.

MOGZ ответил