Линукс от фамилии чувака который его придумал, мак от макинтош - сорта яблок потому что компания эппл, а виндоус потому что они придумали окна. ну и по той же логике логотипы только не знаю почему у линукс пингвин.
<h2>Задание 4</h2>
program task30982812;
var
arr: array[1..10] of integer;
x, i, Sum, a: integer;
begin
Write('Введите число a: ');
Readln(a);
Writeln('Введите 10 значений массива!');
for i := 1 to 10 do
begin
Write(i, '-й элемент: ');
Read(arr[i]);
if (arr[i] mod 2 <> 0) then
Sum := Sum + arr[i];
if (arr[i] > a) then
Writeln(arr[i], ' больше числа ', a)
end;
Write('Сумма нечётных чисел: ', Sum);
end.
<h2>Задание 5</h2>
program task30982812;
var
arr: array[1..15] of integer;
i, k3, k5: integer;
begin
for i := 1 to 15 do
begin
arr[i] := Random(50);
Write(arr[i], ' ');
if (arr[i] mod 3 = 0) then
Inc(k3);
if (arr[i] mod 5 = 0) then
Inc(k5);
end;
Write(Chr(10), 'k3 = ', k3, ', k5 = ', k5);
end.
Var
ar:array[1..2000] of integer;
n,i,count:integer;
begin
readln(n);
for i:=1 to n do begin
read(ar[i]);
while ((ar[i]>0) and ((ar[i] mod 10)<>4)) do ar[i]:=ar[i] div 10;
if ar[i] mod 10 = 4 then inc(count);
end;
writeln(count);
end.
Воспользуемся методом Эйлера.
Информатика|Экономика|Математика=информатика+экономика+математика-экономика&математика-информатика&математика-информатика&экономика+информатика&экономика&математика.
Подставим все известные значения.
Информатика|Экономика|Математика=180+90+30-20-10-6+4=268
Ответ:268