4 года назад

Среди числовых данных найди лишнее число и зачеркни его. Объясни ответ. 1) 23 13 456 76 45 2) 262 452 765 344 3) 123 234 345 543

Знания

Информатика

1 ответ:

Алексей 19714 года назад

0 0

<span>1) 23 13 <u>456</u> 76 45 - все числа двухзначные, а он трехзначный.</span>

Читайте также

Определить объём графического файла, если глубина цвета 32 бита, а разрешение способности сканера 2048 точек на 1536

Аксиния

2048*1536*32=100663296 бит
100663296/8 бит/1024 байт = 12288 Кбайт/1024 Кбайт = 12 Мбайт

0 0

4 года назад

В массиве ненулевых целых чисел определить сколько раз элементы массива при просмотре от его начала меняют знак. Например, в мас

pruha23

//PascalABC.Net 3.2
begin
var a: array of integer;
setLength (a, readinteger('Введите размерность массива: '));
var count:=0;
for var i:=0 to length(a)-1 do a[i]:=readinteger ('Введите элемент: ');
for var i:=1 to length(a)-1 do if (a[i-1]*a[i])<0 then count+=1;
write ('Кол-во раз: ', count);
end.

0 0

1 год назад

Прочитать ещё 2 ответа

Чему равен информационный объем изображения имеет ширину 300 пикселей ,а глубина цвета изоброжения 24 бит ответ лать в мегабайта

Jorjandred [83]

300*1200 - количество пикселей

24 - "вес" каждого в битах.

300*1200*24 - общий вес изображения в битах

/8 - перевод в байты

/1024^2 - перевод в мегабайты.

Возведение в степень

0 0

3 года назад

Даны значения а b c. Составить программу вычислений значения наименьшего отклонения каждого из трёх чисел от их среднего арифмет

Talers

Var a,b,c,q:real;
begin
read(a,b,c);
q:=(a+b+c)/3;
writeln('a: ',abs(a-q));
writeln('b: ',abs(b-q));
writeln('c: ',abs(c-q));

0 0

4 года назад

Паскаль. Температура измеряется каждые 3 часа. Определить наивысшую среднесуточную температуру за прошедшую неделю. Для заполнен

СаНьКа75 [28]

Программа:
const m=7; n=8;
var t:array[1..m,1..n] of integer;
i,j:integer; s,max:real;
begin
Randomize;
writeln('Результаты измерений:');
writeln(' 0 3 6 9 12 15 18 21');
writeln(' -------------------------------');
for i:=1 to m do
begin
for j:=1 to n do
begin
t[i,j]:=random(10)-5;
write(t[i,j]:4);
end;
writeln;
end;
max:=-200;
for i:=1 to m do
begin
s:=0;
for j:=1 to n do s:=s+t[i,j];
s:=s/n;
if s>max then max:=s;
end;
writeln('max = ',max:5:1);
end.

Пример:
Результаты измерений:
0 3 6 9 12 15 18 21
-------------------------------
-4 4 2 -4 0 -1 4 1
-5 -2 2 3 4 0 -5 -3
-4 -4 2 0 -3 -1 -1 -4
-5 -3 4 -3 -4 1 -4 3
4 -1 -5 -1 -5 2 1 -1
-1 2 3 -1 -5 3 2 4
1 -5 -5 -1 0 0 1 2
max = 0.9

0 0

4 года назад