Предметтердин санын белгилоо учун бир эле сан колдонулган кайсы система​

var

a,b: real;

begin

readln(a,b);

if (a> 0) or (b< -2) then

writeln('истинно')

else

writeln('ложно');

end.

320 * 1024 = 327680 мб

327680 / 700 = ,=> нужно 469 дисков. 469 * 15грамм = 7035 гр = 7кг 35 гр

var a: array[1..2,1..30] of integer; i,j: integer; begin      for i: = 1 to 30 do begin            writeln('введите номер ученика: ');             read(a[1,i]);             writeln('введите оценку: ');             read(a[2,i]);       end;             for i: = 1 to 10 do begin        writeln(i: 2,' - ');             for j: = 1 to 30              if a[1,j]=i then                        write(a[2,i],' ');       end;                   readkey; end.     

страус! он бегает со скоростью 80 км/ч