Uses crt;
var a,x:integer;
i,s:integer;
begin
writeln('введите целое число');
readln( a ); x:=a;
s:=0;
while ( x<>0 ) do
begin
s := s + (x mod 10);
x := x div 10;
end;
writeln( 'Сумма цифр числа ',a,' = ', s );
if s=10 then
writeln('Верно')
else
writeln('Неверно');
end.
var a: real;
begin
readln(a);
writeln((2 * a * a * a + 8)/(3 * a));
end.
Const
n = 40;
var
x: array[1..n] of integer;
i, k, s: integer;
begin
Randomize;
Writeln('Элементы массива');
k := 0; s := 0;
for i := 1 to n do
begin
x[i] := Random(50);
Write(x[i]:3);
end;
Writeln;
Writeln('Элементы со значением в интервале [7;10]');
for i := 1 to n do
if (x[i] >= 7) and (x[i] <= 10) then
begin
k := k + 1; s := s + x[i];
Write(x[i]:3)
end;
if k = 0 then Writeln('не найдены')
else Writeln(#13#10, ' Элементов:', k, ', среднее арифметическое=', s / k:5:3)
end.
Тестовое решение:
Элементы массива
24 33 36 29 12 7 5 36 3 48 40 40 46 6 10 23 33 3 38 48 29 37 11 40 44 16 17 18 34 38 33 39 9 0 41 37 42 2 40 31
Элементы со значением в интервале [7;10]
7 10 9
Элементов:3, среднее арифметическое=8.667
Пиксель это маленькая часть кадра в 1 кадре их очень много. RGB-палитра не знаю но просто палитра это вещь для художников что бы смешивать краски
1) 1000=120+110. Складываем в столбик.
120
110
-------
1000
Во втором разряде справа 2+1 дало в результате 0. Но 2+1=3 в десятичной системе, следовательно система счисления троичная.
2) Если в мешке только красные яблоки, то вероятность вытащить красное яблоко равна единице и сообщение о том, какого цвета вытащенное яблоко не содержит никакой новой информации т.е. количество информации 0 бит. А если там есть яблоки другого цвета. то информации для решения задачи недостаточно.
3) Диапазон А1:С4 содержит четыре строки (1-4) и три колонки (А-С). Итого 4х3=12 ячеек.
