Данные записанные в одну строку таблицы это - основы.
Переведём число в 2 СС. нацело оно не переведется, поэтому переводим до стольки знаков после запятой, чтобы их общее кол-во вместе с целой частью было =24;
24,29 в 10 СС= 11000,0100101000111101011 в 2 СС
р=5
Мр=1000101
0100|0101|1100|0010|0101|0001|1110|1011
4 5 C 2 5 1 E B
Ответ:45С21ЕВ
Program gt;
var a:array[1..10]of integer;
i:integer;
begin
randomize;
for i:=1 to 10 do
begin
a[i]:=random(21)-65;
if(i mod 2=0)then write(a[i],' ');
end;
end.
Если Вы хотите чтобы выводился результат выражения b*b*(5*a-150), то Вы пропустили скобку.
Текст программы выглядит так:
program Vasiljev_hw6;
var
a: integer;
b: integer;
begin
writeln('Васильев Алексей 7А Вариант6');
writeln('Введите переменную a: ');
readln(b);
writeln('Введите переменную b: ');
readln(a);
writeln(b * b * (5 * a - 150));
end.
Опять же, я не понимаю почему Вы выводите 'Введите переменную а', а считываете b, и наоборот