1. В программе Access средства автоматического проектирования представлены автоотчетами, запускаемыми:​

майор - артиллерист капитан - летчик лейтенант - связист старшина - минометчик сержант - сапер ефрейтор - танкист

program a1;

  uses crt;

  var a: array[1..31] of longint; k,i: integer;

begin

  clrscr;

  for i: =1 to 31 do begin

  write('введите температуру ',i,' числа: ');

  readln(a[i]);  

  if a[i]< 0 then k: =k+1;

  end;

writeln('  количество дней в которые были заморозки = ', k);

readln

end. 

p.s. если паскаль abc, то выделенное писать не обязательно 

11011011-110101110 = -11010011

11010101*1110 = 101110100110

111110*1000010 = 111111111100

111100*100100 = 100001110000

10010000 / 1110 = 1010

101111001101 / 110101 = 111001

10011111111 / 101111= 11011

для basic:

rem

cls

input "a=",a

input "b=",b

input "с=",с

input "d=",d

if a/c=b/d then print "подобные" else print "нет"