4 года назад

В каких компьютерах не используются мультимедийные технологии?

Знания

Информатика

1 ответ:

Василий Кутвинов [1]4 года назад

0 0

те которые занимаются трофическом построениями

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

Какой оператор надо вставить вместо многоточия, чтобы вывести на экран все элементы массива A[1..N] с четными номерами? В ответе

Денис1980

K := 2;
while k <= N do begin
writeln ( A[k] );
k:=k+2;
<span>end;

</span>

0 0

4 года назад

Написать программу на Паскале, где пиксели рисунка закодированы числами (обозначающими цвет) в виде матрицы, содержащей N строк

Юрасик 1

//PascalABC.NET 3.1 сборка 1219
procedure PrintMatrix(a: array[,] of integer);
begin
    for var i := a.GetLowerBound(0) to a.GetUpperBound(0) do
    begin
        writeln;
        for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
            write(a[i, j], ' ');
    end;
    writeln;
end;

begin
    var a := MatrixRandom(ReadInteger('n ='), ReadInteger('m ='), 0, 255);
    PrintMatrix(a);

    for var i := a.GetLowerBound(0) to (a.GetUpperBound(0) div 2) do
        for var j := a.GetLowerBound(1) to a.GetUpperBound(1) do
            swap(a[i, j], a[a.GetLowerBound(0) + a.GetUpperBound(0) - i, j]);

    PrintMatrix(a);
end.

0 0

4 года назад

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

Лан e-mail: [email protected] Символы moscow-это: а) имя пользователя б) почтовый протокол в) имя провайдера г) город назна

Hall

Да это Г или Б а имя полбзователя вапше другой НАПРИМЕР : [email protected]

0 0

4 года назад

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

Дано вещественное число a. Найти наименьшее n, чтобы 1+1/2+1/3+…+1/n > a. c++

nika76 [50]

Ответ:

Возможно так

#include <iostream>

using namespace std;

int main() {

double a;

int n = 1;

double sum = 1 / n;

cin >> a;

while(sum <= a){

n++;

sum += (double) 1 / n;

}

cout << n << endl;

}

Объяснение:

0 0

3 года назад

Помогите пожалуйста, очень срочно! Паскаль: Дан Текст. Слова в тексте разделены одним или несколькими пробелами. Написать програ

Ayami [7]

var
i:integer;
s:string;
const
glas=['Й','У','Е','Ы','А','О','Э','Я','И','Ю'];
beginwrite ('Vvedite predlohenie: ');
readln (s);
i:=1;
while i<=length (s) do
begin
if ((i=1) or (s[i-1]=' ')) and (s[i] in glas) then
begin
while not ((s[i] in ['.',',',';','!','?',':',' '])) and (i<=length (s)) do
begin
write (s[i]);
i:=i+1;
end;
writeln;
end;
i:=i+1;
end;
readln;
end.

0 0

4 года назад