Используя язык программирования QBasic, составьте программу, которая выведет на экран ваши фамилию, имя, отчество и номер группы так, чтобы каждое слово находилось в отдельном углу экрана. Используйте операторы PRINT и LOCATE (для набора теста используйте символы английского алфавита). текст программы предоставьте в качестве ответа

1. "Козерог"

2. "Андромеда"

3. "Уганда"

Объяснение:

1.

288 бит = 288/8 байт = 36 байт - это 36/4=9 символов. При вычеркивании слова вычеркивается также один пробел и одна запятая. Значит удалено было слово, состоящее из 7 символов. Это слово "Козерог".

2.

88 бит = 11 байт - это 11 символов.  При вычеркивании слова вычеркивается также один пробел и одна запятая. Значит удалено было слово, состоящее из 9 символов. Это слово "Андромеда".

3.

128 бит = 16 байт - это 8 символов. При вычеркивании слова вычеркивается также один пробел и одна запятая. Значит удалено было слово, состоящее из 6 символов. Это слово "Уганда".

Pascal ABC

Код:

var

  a: array [1..100] of real;

  max, i, min, N: integer; temp: real;

begin

    readln(N);

    //заполнение массива и его вывод

    for i := 1 to N do begin

        a[i]:=random()*100;

        write(a[i]:0:2, ' ');

    end;

    writeln;

    //поиск максимума и минимума

    min := 1; max := 1;

    for i := 1 to N do begin

        if a[min] > a[i] then min := i;

        if a[max] < a[i] then max := i;

    end;

    //меняем местами

    temp := a[max];

    a[max] := a[min];

    a[min] := temp;

    //вывод массива

    for i := 1 to N do

        write(a[i]:0:2, ' ');

    writeln;

end.

Тесты:

Ввод:

5

Вывод:

81.57 14.35 20.60 42.20 21.09  

14.35 81.57 20.60 42.20 21.09

Ввод:

6

Вывод:

90.94 46.30 24.40 99.34 12.02 69.05  

90.94 46.30 24.40 12.02 99.34 69.05

Ввод:

4

Вывод:

52.21 61.47 17.57 68.80  

52.21 61.47 68.80 17.57