Напишите программу для решения примера а=в/с, при условии, что ,с, не равно нулю

begin

  var (b, c) : = readreal2;

  if c < > 0 then write('a=', b / c)

  else print('с=0')

end.

var a, b, c: integer;

begin

read(b,c);

if (c> 0)and(c< 0) then a: =b/c write(a) else write('c=0');

end.

это для паскаля

32 кбит/с*16 с=524288 бит=65536 кбайт.

вес 1 страницы=8*48=384 бит.48

кол-во стр=524288/384=1365 страниц

program mdd; uses crt; var a,b,c,d: longint; beginclrscr; readln(a,b,c,d); if (a> b) and (a> c) and (a> d) and (d< a) and (d< c) and (d< b) then writeln('правда')else writeln(''неправда); readkey; end.