Var m,m2,m3: integer;
begin
readln(m);
m2:=round(m-0.45*m);
m3:=m+m2;
writeln('1: ',m,', 2: ',m2,', 3: ',m3,', вместе: ',m+m2+m3);
end.
Пример:
20
1: 20, 2: 11, 3: 31, вместе: 62
По идее множество А содержит множество B
а) пересечение.
program Vyv;
var a,b,i:integer;
begin
write('Введите начало диапазона a = ');
readln(a);
write('Введите конец диапазона b = ');
readln(b);
for i:=a to b do
if (i<0) and (i mod 2 = 0) then write(i,' ; ')
end.