var sum,i:longint;
begin
sum:=0;
for i:=10 to 30 do
if i mod 2=0 then sum:=sum+i;
write(sum);
end;
Данная таблица является примером таблицы ООО.
Ответ:
PascalВыделить код
1 prorgam sp;
2 var A: array [1..10] of integer;
3 I,S: integer;
4 begin I:=0;
5 for I:=1 to 10 do S:=S+A[I];
6 writeln ('summa=',S);
7 end
Объяснение:
A = {И, Н, Ф, О, Р, М, А, Т, К}
B = {А, В, Т, О, М, И, К}
A ∪ B = {И, Н, Ф, О, Р, М, А, Т, К, В}
A ∩ B = {И, О, М, А, Т, К}