4 года назад

Для чого використовує комп'ютер музикант?

1 ответ:

Artemiy-19664 года назад

0 0

А если у музыканта не ту музыкального инструмента ,то он закачевает на компьютер а который нужен инструмент!!!!¡!
понял дружок,пирожок?

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

Используя алгоритм ветвления, составьте блок-схему и напишите на одном из языков программирования (Python или PascalABC) програм

psychologist07 [14]

Python 3.7.0

===========================

x = int(input("x = "))

if (x < 5):

y = (4 * x * x + 1) / (x - 5)

elif (x >= 5):

y = 3 * x * x - 2

print(y)

0 0

4 года назад

Задача по паскаль.решите плизз(смотрите скрин)

Анисья Смирнова [12]

Var a,b,i:integer;
begin
readln(a,b);
for i:=a to b do writeln(i,' ',chr(i));
end.

Пример:
35 40
<span>35 #
36 $
37 %
38 &
39 '
40 (</span>

0 0

4 года назад

Одно из слов приведенных ниже,закодирован следующим образом:2+X=2X

anatolypaz

Вместо Х там должно быть 2

0 0

4 года назад

Помогите решить плз !!!! В текстовом файле задана последовательность положительных чисел, за которой следует отрицательное число

bleachyoursoul

Procedure sumd;
var s,n: integer;
begin
s:=0; n:=0;
repeat
s:=s+n;
read(n);
until n<0;
writeln('сумма: ',s);
end;
// сновная программа
begin
assign(input,'input.txt');
sumd;
end.

файл input.txt: 11 15 21 13 -5
сумма: 60

0 0

3 года назад

Подскажите, что нужно изменить, чтобы программа правильно работала(паскаль) Заполнить массив случайными числами в интервале [-10

tntinfo

Const
    n = 10;

var
    i, c: integer;
    a, w: array[1..n] of integer;

begin
    randomize;

    writeln('Исходный массив:');
    for i := 1 to n do
    begin
        a[i] := random(201) - 100;
        write(a[i], ' ');
    end;
    writeln;

    c := 0;
    for i := 1 to n do
        if a[i] > 0 then
        begin
            c := c + 1;
            w[c] := a[i];
        end;

    writeln('Кол-во положительных элементов: ', c);
    for i := 1 to n do
    begin
        if a[i] <= 0 then
        begin
            c := c + 1;
            w[c] := a[i];
        end;
    end;

    writeln('Результат:');
    for i := 1 to c do
        write(w[i], ' ');
end.

0 0

3 года назад

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