proplenkusale88
?>

Дан одномерный массив состоящий из 10 элементов.найти произведение этих 10 элементов(составить программу на языке паскаль : *****

Информатика

Ответы

lukur2005

program please; uses crt; const n=10; var  a: array[1..n] of integer;   i: integer;   mm: real; begin  writeln('*** alphaues is ***');   writeln('***                  ok                        ***');   writeln();   writeln('элементы массива: ');   {создание и вывод массива}  mm: =1;   for i: =1 to n do      begin          a[i]: =random(100)-50;           write (a[i]: 5);           mm: =mm*a[i];       end;   writeln();   writeln();   writeln('произведение элементов массива ',mm);       end.

Тимур Андраниковна634

uses crt; var a: array [1..10] of real; i: integer; p: real; beginclrscr; randomize; p: =1; for i: =1 to 10 dobegina[i]: =random(100)-50; write(a[i],' '); p: =p*a[i]; end; writeln; write('proizvedenie: ',p); end.

emartynova25

Войти

АнонимИнформатика24 ноября 14:21

В процессе преобразования растрового графического файла количество цветов уменьшилось с 512 до 8. Во сколько раз уменьшился

информационный объем файла?

РЕКЛАМА

Дебетовая карта Польза от Банка Хоум Кредит

ответ или решение1

Зыкова Маргарита

1. Определим, какой объем информации нес каждый пиксель. Формула нахождения количества информации: N = 2i, где N - количество цветов в палитре, i - сколько информации несет каждый пиксель (в битах).

Было: 512 = 29, то есть каждый пиксель нес 9 бит информации,

Стало: 8 = 23. То есть каждый пиксель теперь несет 3 бита.

2. Информационный объем каждого пикселя уменьшился в три раза (9 : 3 = 3), значит и объем всего графического файла уменьшился в три раза.

ответ: в 3 раза.

ДеречинскийИрина1149
Возможны опечатки это язык си++ он похож на си# #include < iostream> using namespace std; int main() { int n; cin > > n; // пункт а, если первая больше   выводит 1, если последняя то 3, если равны то ==. аналогично с пунктами в и с cout < < "a)"; if (n / 100 > n % 10) cout < < 1 < < "\n"; else if (n / 100 < n % 10) cout < < 3 < < "\n"; else  cout < < "==" < < "\n"; cout < < "b)"; if (n / 100 > n / 10 % 10) cout < < 1 < < "\n"; else if (n / 100 < n / 10  % 10) cout < < 2 < < "\n"; else  cout < < "==" < < "\n"; cout < < "c)"; if (n / 10 % 10  > n % 10) cout < < 2 < < "\n"; else if (n / 10 % 10  < n % 10) cout < < 3 < < "\n"; else  cout < < "==" < < "\n"; //system("pause"); }

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Дан одномерный массив состоящий из 10 элементов.найти произведение этих 10 элементов(составить программу на языке паскаль : *****
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

info126
elyashatdinova
symkifm
mlubov1
lescha-77766
Struev730
Murad Gushcharin
xeniagolovitinskaya4546
arammejlumyan
u-bhank
agafonovalyudmila346
elena-novikova-1992
arutchevben64
info122
ale-protasov