Решите в qbasic 1)среди натуральных чисел от 1 до n найти все такие, запись которых совпадает с последними цифрами записи их квадратов( 5 и 25, 6 и 36, 25 и 625 итд) 2)выдать номер позиции заданной строки, в которой в пятый раз встречается буква w. если такой позиции нет, выдать сообщение об этом. 3) из данной строки получить новую, заменив все звездочки на точки. распечатать полученную строку

Привожу пример в vba excel, программа в редакторе vba открывается сервис/макрос/

21 =  10101

 

46 =  101110

-90 =1111111111111111111111111111111111111111111111111111111110100110

есть еще вариант   -90 = -1011010 но первый типа правильней   будет 

19 =  10011

16,78 =  10000.11001000

14,21 =1110.00110110

 

теперь записываем в двух байтовые ячейки ( две по 8 )

21 =  10101   =   0000 0000 0001 0101

46 = 101110 =   0000 0000 0010 1110 

-90 = 10110110 = 0000 0000 1011   0110 операция not 1111 1111 0100 1001

16.78 =   0001 0000 1100 0111

14.21 =  0000 1110 0011 0101

 

// pascalabc.net (версия 3.1, сборка 1210 от 29.03.2016) var a: array of integer;               i,n: integer; begin //заполняем массив сл. числами и выводим //массив нумеруется с 0 write('число элементов массива '); readln(n); setlength(a,n); for i: =0 to n-1 do begin   a[i]: =random(21)-10;   write(a[i]: 4); end; writeln; //вывод элементов с неч. номерами в обратном порядке for i: =n-1 downto 0 do   if i mod 2 < > 0 then write(a[i]: 4); end. тестовое решение: число элементов массива 8   -2    2  -6  -5    1    3  -7 -10   -10    3  -5    2