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*
Комментарий*

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

svetarakityanskaya
Ignateva737
Yevgenevna
tigran87-87
ПетровичЖивотовская1245
skvorec3424
Stepanovich_Makarov
Андрееевич787
Анатольевич-Фатима
alex091177443
reception
sandovo590
Lolira64
ASRodichev
ganzashop