С! на языке free pascal ide или abc pascal площадь. по данным натуральным числам a,b,m,k найти (с округлением с избытком до целого числа) площадь пересечения полуплоскоси (a*x+b*y< =a*b) и прямоугольника (0 < = x < =m, 0< =y< =k). пример: a=5, b=5,m=5,k=3 > 11. ввод: на
единственный строке - натуральные числа a,b,m,k (меньшие 100), разделенные единичными пробелами. вывод: одно натуральное число.

Флеш-память — память типа Flash — разновидность полупроводниковой технологии электрически перепрограммируемой памяти (EEPROM). В народе флеш-памятью называют широкий класс твердотельных устройств хранения информации. Флеш-память (в отличие от винчестеров) используют в накопителях смартфонов, особого класса ноутбуков (по причине дороговизны этого типа памяти) и кое-где еще. Особенность этого типа памяти, помимо дороговизны и быстродействия — конечное число циклов перезаписи. Также практически невозможно найти накопители с флеш-памятью большого объема.Компакт-диск (англ. Compact Disc, CD) — оптический носитель информации в виде пластикового диска с отверстием в центре, процесс записи и считывания информации которого осуществляется при лазера. Дальнейшим развитием компакт-дисков стали DVD и Blu-ray, прообразом была граммофонная пластинка.

Изначально компакт-диск был создан для хранения аудиозаписей в цифровом виде (известен как CD-Audio), однако в дальнейшем стал широко использоваться как носитель для хранения любых данных (файлов) в двоичном виде (т.н. CD-ROM — англ. Compact Disc Read Only Memory, компакт-диск с возможностью только чтения, или КД-ПЗУ — «Компакт-диск, постоянное запоминающее устройство»). В дальнейшем появились компакт-диски с возможностью не только чтения однократно занесённой на них информации, но и записи (CD-R — англ. Compact Disc-Recordable, записываемый компакт-диск) и перезаписи (CD-RW — англ. Compact Disc-ReWritable, перезаписываемый компакт-диск).

Program Pascal1;
uses Crt;
const
  m=4;
  n=2;
var
  a:array[1..m,1..n] of real;
  i,j,k:integer;
begin
  ClrScr;
  Randomize;
  Writeln('Сформированный масcив');
  k:=0;
  for i:=1 to m do begin
    for j:=1 to n do begin
      a[i,j]:=Random(31)-15.0;
      Write(a[i,j]:6:1);
      if a[i,j]=10 then Inc(k)
      end;
    Writeln
  end;
  Writeln('Количество элементов, равных 10: ',k);
  Write('Нулевые элементы: ');
  for i:=1 to m do
    for j:=1 to n do
      if a[i,j]=0 then Write('a[',i,',',j,'] ');
  Writeln
end.

Вариант выполнения: