Что не так в программе? var A,B,a,b:integer; begin read(a,b); if (a mod 6=0) and (b mod 6=0) then (A:= a div 6) and (B:= b div 6) write(A,'/',B); end.
нет в 4-ой сорян
var C,D,a,b:integer;begin read(C,D,a,b);if (a mod 6=0) and (b mod 6=0)then (C:=a div 6) and (D:=b div 6) <-- вот тутwrite(C,'/',D);end.
Тут 4 строка кривая... Наверное, надо добавить begin, убрать скобки, поставить ";", добавить end.
begin после then
И and убрать
var C,D,a,b:integer;begin read(C,D,a,b);if (a mod 6=0) and (b mod 6=0)then begin C:=a div 6 D:=b div 6; встречено D а ожидалось ;endwrite(C,'/',D);end.
4 строка
C:=a div 6; D:=b div 6 end;
получилось
спасибо
Паскаль или дельфи не чувствительны к регистру букв, поэтому Вы задали 2 раза одни и те же переменные, т.е. а=А, b=B. Замените одну пару другими переменными, например c,d