4 года назад

Как относится между собой компьютер и программное обеспечение?1. Компьютер надсистема2. Компьютер подсистема

Знания

Информатика

1 ответ:

Зинаида Голицина4 года назад

0 0

Ответ:

Подсистема

Объяснение:

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

Дано 2 числа найти большее из них. В ДЕЛФИ

Maksimus888

Var a, b: Integer;
begin
ReadLn(a, b);
if a>b then WriteLn(a)
else WriteLn(b);
end.
-------------------------
Это если консольное. Если графическое приложение - тогда приношу свои извинения.

0 0

4 года назад

Помогите с вопросами, плиз

елера

4. ответ С
5. ответ С
6. ответ А
7.ответ В
8.ответ D

0 0

4 года назад

Кадры видеозаписи меняются с частотой 25 кадров в секунду. Запись содержит стереозвук. Глубина цвета графики - 24 бит на пиксель

susu

Объем видеофайла=(объем видео + стерео звука) * время/сжатие
видео шир выс объем кадра кадры видео бит
 640 480 307200 25 7680000
звук частота глуб каналы звук бит
 22000 16 2 704000
видео+ звук время время объем виде-файла без сжатия
8384000 5мин*60 300 2515200000
объем виде-файла с сжатием
251520000 бит
245625 Кбит

0 0

4 года назад

СРОЧНО!!! Составить программу на языке Паскаль. Найдите среднее ариыметическое натуральных чисел от 1 до n кратных 5.

zxcrewqyu123 [1]

{на основе формулы арифметической прогессии}
var
n: integer;
begin
readln(n);
    writeln((5+5+5*(n div 5 -1))/2) ;{((a1+a1+d*(n-1))/2)}
end.

{или перебором без математики}

var
i,n,k: integer;
s:real;
begin
k:=0;
readln(n);
for i:=1 to n do
    if i mod 5=0 then begin s:=s+i; k:=k+1; end;
    writeln(s/k) ;
end.

Пример
n=100
summa=52.5

0 0

4 года назад

Прочитать ещё 2 ответа

Напишите программу, которая в последовательности натуральных чисел определяет сумму всех чисел кратных 8 и оканчивающихся на 6

rudik43

program raf105;

var a,sum: integer;

begin

writeln('Вводите числа по очереди');

writeln('Чтобы закончить введите 0');

repeat

readln(a);

if (a mod 8 = 0) and (a mod 10 = 6)

then sum+= a;

until a = 0;

writeln('Сумма: ',sum);

end.

<h3>PascalABC 3.4.2</h3>

0 0

4 года назад