Ответ:
#include <iostream>
using namespace std;
int main()
{
int a[4];
int i, p;
setlocale(LC_ALL, "russian");
cout << "Введите четыре числа: ";
for (i = 0; i < 4; i++) {
cin >> a[i];
}
p = 1;
for (i = 0; i < 4; i++) {
p *= a[i];
}
if (p > 0)
cout << "\nПроизведение положительно";
else if (p < 0)
cout << "\nПроизведение отрицательно";
else
cout << "\nПроизведение равно 0";
}
Ввода: микрофон, джойстик, цифровой микроскоп, дисковод, веб камера, цифровой фотоаппарат
Вывода: видеопроектор, плоттер
3 Мб = 3*1024*1024*8 = 25165824 бит
3200*1800 = 5760000- всего пикселей
25165824/5760000 = 4.36 бит на пиксель округляем до 4 бит на писель
2^4 = 16
Ответ: 16 цветов
П
ы с
л о
е к б
с е а
о к к
с о с т а в
с у о
и ч л
н а к
а
1)машина собирающая грязь
2)подруга ёлки
3)синоним слова "маффин"(булочка)
4)хмурое облако
5)друг человека
6)дикая собака
<u>Поскольку протестировать программу без файла нельзя, вот код, создающий нужный файл.</u>
<em>// PascalABC.NET 3.3, сборка 1579 от 18.11.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Rewrite(f);
SeqRandom(20,-50,50).foreach(t->Write(f,t));
f.Close
end.
<u>А теперь, собственно, решение задачи</u>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Reset(f);
var k:=0;
var b:integer;
while not Eof(f) do begin
Read(f,b);
if b.IsEven then k+=1
end;
f.Close;
Writeln('Кол-во четных компонент файла равно ',k)
end.
<u>И последнее - программа распечатки значений компонент файла. Для контроля.</u>
type
fint=file of integer;
begin
var f:fint;
Assign(f,'integers.bin'); Reset(f);
var b:integer;
while not Eof(f) do begin Read(f,b); Print(b) end;
Writeln;
f.Close
end.