Program N12345678901011121314;
uses crt;
const n=8;
var
e:array[1..n] of integer;
vid,nom,i: integer;
begin
writeln('*** alphaues is thinking... ***');
writeln('*** OK ***');
writeln();
writeln('Елементи масиву:');
randomize;
nom:=0; //номер 5-го елементу
vid:=0; // к-ть негативних елементів
for i:=1 to n do
begin
e[i]:=random(100)-50;
write (e[i]:5);
if e[i]<0 then
vid:=vid+1;
if (e[i]<0) and (vid = 5) then
nom:=i;
end;
writeln();writeln();
if nom<>0 then
writeln('Номер 5-го негативного елементу: ',nom)
else
writeln('Такого елемента немає');
end.
program abcd;
uses crt;
var a,b,c:real;
begin
writeln(Введите 3 действительных числа через пробел"');readln(a,b,c);
if a>5 then begin
a:=a*a;
writeln(a)
end
else writeln('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"');
if b>5 then begin
b:=b*b;
writeln(b);
end
else writeln('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"');
if c>5 then begin
c:=c*c;
writeln(c);
end
else writeln('Данное число не может быть возведено в квадрат, так как не соответствует условию "число >5"');
end.
Файл с расширением XLS содержит электронную таблицу. Это расширение программы Excel
Находим сколько бит информации несет 1 цвет по формуле Хартли N=2^i => 256=2^8 => 8 бит
Формула объема V=I*X*Y => 8*1280*1024=10485760 бит переведем в байты, т.е. разделим на 8=1310720 байт
правильный ответ Г
Боря Енин, Гриша Петров, Вова Иванов, Паша не помню.
