Все категории

4 года назад

Как определить объем файла?

Знания

Информатика

1 ответ:

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

0 0

Просто кликаем правой кнопкой мыши на файл потом выбираем там свойство и вауля)

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

1)дан двумерный массив целых чисел размерностью 5х7. Найти и вывести на экран среднее арифметическое элементов этого массива

Bulat Welder [120]

Program n1;
Uses CRT;
Const n=5; m=7;
Var A: array[1..n,1..n] of integer;
i,j,s,k: integer;
begin
clrscr;
randomize;
For i:=1 to n do
begin
For j:=1 to n do
begin
a[i,j]:=random(100);
write(a[i,j]:4);
s:=s+a[i,j];
k:=k+1;
end;
writeln;
end;
Writeln('srednee arifmeticheskoe =',s/k:4:4);
readln
end.

0 0

3 года назад

Выведите на экран значение суммы натуральных чисел от 1 до 10. Паскаль

Асатур

var i,s:integer;

begin

for i:=1 to 10 do s:=s+i;

writeln (s)

end.

0 0

4 года назад

Какое максимально количество цветов можно использовать при создании рекламного плаката очень экономной компании если его размер

octagon

Общее количество пикселей: 2500 * 1500 = 3750000 px
Память: 1.5 MB = 12582912 bit
На один пиксель приходится: 12582912 / 3750000, т.е максимум 3 бита.
При такой глубине цвета доступны 8 цветов.

0 0

4 года назад

Чему будет равно значение ячейки А8 (см. рис 1), если в нее ввести формулу =СУММ(A1:A7)/2

gglorynk [2.8K]

280/2=140
сложить все числа и разделить на 2

0 0

4 года назад

Срочно!!!! Решите 2 Вариант и последнее задание!

Антонина91 [11]

Ответ:

program multiple;

var

N, P: Real;

begin

P := 1;

WriteLn ('Введете числа: ');

repeat

ReadLn (N);

if N <> 0 then

P := P * N;

until N = 0;

WriteLn ('Произведение = ', P :15 :5);

ReadLn;

end.

0 0

4 года назад