Три вида принтеров???????????

Знания

Информатика

1 ответ:

Andy34304 года назад

0 0

Матричные, струйные и лазерные.

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

Вывести на экран произведение четных элементов последовательности

Jack1956

На языке Си:
#define n 10
int main()
{
int mn=1;
int mas[n];
for(int i=0; i<n;i++)
{
mas[i]=10+rand() % 100;
printf(" %d " ,mas[i]);
}
for(int j=0; j<n; j++)
{
if(mas[j] %2 ==0)
{
mn = mas[j]*mn;
}
}
printf(" Proizvedenie chetnix elementov ravno: ", mn);
return 0;
}

0 0

4 года назад

Выведите на экран значение логического выражения, которое принимает значение true, если треугольник со сторонами a, b, cявляется

МирМар

Var a,b,c:real;
begin
readln(a,b,c);
if (a=b) or (b=c) or (a=c) then writeln('true')
else writeln('false');
end.

0 0

4 года назад

Часы с боем бьют каждый час столько раз, сколько часов показывает часовая стрелка, а когда минутная стрелка показывает полчаса-о

лекс1992

Ответ Б. 12.30 13.00 13.30

0 0

4 года назад

Расcчитайте объем видеопамяти необходимый для представления одноминутного фильма на экране монитора c пространственным разрешени

SkyFire

При палитре 256 цветов для хранения 1 пикселя необходимо
log(2)256=8 бит=1 байт
Для 1 кадра: 800*600*1 байт
Для фильма длительность 1 секунда: 800*600*16 байт
Для фильма длительностью 1 мин:
800*600*16*60 байт = 800*600*16*60/1024 Кбайт = 450 000 Кбайт ≈
440 Мбайт

0 0

4 года назад

Написать программу которая складывает числа до тех пор пока не получится число состоящее из одной цифры.пример:5+5+5=15=1+5=6он

Аь [50]

Var
a, b: integer;

begin
readln(a);
while (inttostr(a).Length > 1) do
begin
b := 0;
foreach c: char in inttostr(a) do
b += strtoint(c);
a := b;
end;
writeln(b);
<span>end.
=======================
var
a, b, e: integer;
d: string;

begin
readln(a);
d := inttostr(a);
while (length(d) > 1) do
begin
d := inttostr(a);
b := 0;
for e := 1 to length(d) do
b += strtoint(d[e]);
a := b;
end;
writeln(b);
<span>end.</span></span>

0 0

4 года назад