Предмет: Информатика,
автор: itogervond
Что не так в программе?
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.
itogervond:
нет в 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.
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 а ожидалось ;
end
write(C,'/',D);
end.
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 а ожидалось ;
end
write(C,'/',D);
end.
4 строка
C:=a div 6; D:=b div 6 end;
получилось
спасибо
Ответы
Автор ответа:
0
Паскаль или дельфи не чувствительны к регистру букв, поэтому Вы задали 2 раза одни и те же переменные, т.е. а=А, b=B. Замените одну пару другими переменными, например c,d
Похожие вопросы
Предмет: Математика,
автор: kiokko3
Предмет: География,
автор: Milkacat123
Предмет: Математика,
автор: mariatroshina
Предмет: Математика,
автор: mamaRoza
Предмет: Музыка,
автор: Palenkova