Const N = 9;
var a: array[1..N] of integer;
i, sum: integer;
begin
sum := 0;
for i := 1 to N do begin
a[ i ] := random(12)-2;
write(a[i]:4);
if a[ i ] > 2 then sum := sum + a[ i ];
end;
writeln();writeln();
write(' Сумма всех чисел > 2: ', sum);
<span>end.</span>
Var x,y: real;
begin
write('Введите x: ');
readln(x);
y:=x*x*x+2.5*x*x-x+1;
writeln('Ответ ',y);
<span>end.</span>
N = число в десятичной системе
res = пустая строка
WHILE n не равно 0:
res = привести в строку(остаток от деления n на 2)+res
n = n/2 (нужно делить без остатка Например: (3/2)= 1)
ЗАКОНЧИТЬ WHILE
вывести res
Целью: если нужно сравнить какие-то данные - выбираем столбчатую (гистаграмму), если нужно проследить изменение какой-то одной величины - график, если нужно определить долю какой-то величины в общем объеме - круговую
<span>устройство обеспечивающие обмен информацией с контроллерами периферических устройств, называется
шина</span>