круги эйлера: нарисуй прямоугольник внутри него два пересекающих друг друга круга. внутри прямоугольника поставь цифру 8 это те кто не любит комп. игры.
внутри одного круга напиши с и 62, это те кто любит симуляторы их 62 чел.
внутри другого круга напиши к и 54, это те кто любит квесты их 54 чел.
з.ы. у меня просто не хочет прикреплять рисунок.
Ответ дал: Гость
program xxx;
var i, n : integer;
s : real;
a : array [1..20] of real;
begin
writeln('введите размерность массива n=');
readln(n);
write('введите элементы массива а: ');
for i: =1 to n do
readln(a[i]);
writeln('исходный массив а: ');
for i: =1 to n do
writeln(a[i]);
s: =0;
for i: =1 to n do
if a[i] mod 2 = 0 then s: =s+a[i];
writeln('сумма четных элементов =', s);
readln
end.
Ответ дал: Гость
var
n,i,a: integer;
begin
readln(n);
for i: =1 to n do
begin
read(a);
write(abs(a),' ');
end;
end.
Ответ дал: Гость
x - информационный вес одного символа
n - мощность алфавита (кол-во символов)
размер содержащейся в тексте информации находим по формуле:
Популярные вопросы