Получить на экране значения, показанные в задании, используя при этом массив (хотя он здесь совершенно не нужен), можно так: const n=6; var a:array [1..n] of integer; i,j:integer; begin for i:=1 to n do a[i]:=i+4; for j:=0 to 5 do begin write('':3*j); for i:=1 to n-j do write(a[i]:3); writeln; end; end.
Складываем число людей, знающих английский, немецкий, французский: 6 + 6 + 7 = 19. Однако в это число дважды вошли люди, знающие (только) два языка и трижды - три языка. Вычитаем людей, знающих (хотя бы) два языка: 19 - (4 + 3 + 2) = 10. Т.к. в каждое из трех вычтенных множеств включено множество людей, получается, мы вычли его три раза, и 10 - количество людей, знающих меньше трех языков. Еще раз прибавляем людей, знающих три языка: 10 + 1 = 11 человек в комнате всего. В итоге получилось: 1 человек знает только английский 3 человека знают только французский 0 человек - только немецкий 3 - только английский и немецкий 2 - только немецкий и французский 1 - только английский и французский 1 - все три языка Задача очень легко решается, если изобразить ее на диаграмме, даже без всех этих рассуждений про множества
gabbro19975650
22.10.2020
Складываем число людей, знающих английский, немецкий, французский: 6 + 6 + 7 = 19. Однако в это число дважды вошли люди, знающие (только) два языка и трижды - три языка. Вычитаем людей, знающих (хотя бы) два языка: 19 - (4 + 3 + 2) = 10. Т.к. в каждое из трех вычтенных множеств включено множество людей, получается, мы вычли его три раза, и 10 - количество людей, знающих меньше трех языков. Еще раз прибавляем людей, знающих три языка: 10 + 1 = 11 человек в комнате всего. В итоге получилось: 1 человек знает только английский 3 человека знают только французский 0 человек - только немецкий 3 - только английский и немецкий 2 - только немецкий и французский 1 - только английский и французский 1 - все три языка Задача очень легко решается, если изобразить ее на диаграмме, даже без всех этих рассуждений про множества
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Заполнить массив и вывести на печать следующим образом 5 6 7 8 9 10 5 6 7 8 9 5 6 7 8 5 6 7 5 6 5 пятёрки должны быть по главной диагонали
const n=6;
var a:array [1..n] of integer;
i,j:integer;
begin
for i:=1 to n do a[i]:=i+4;
for j:=0 to 5 do
begin
write('':3*j);
for i:=1 to n-j do write(a[i]:3);
writeln;
end;
end.
Результат:
5 6 7 8 9 10
5 6 7 8 9
5 6 7 8
5 6 7
5 6
5