Предмет: Информатика,
автор: 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
Интересные вопросы
Предмет: Қазақ тiлi,
автор: moldabekzangar
Предмет: Русский язык,
автор: damelye2022
Предмет: Математика,
автор: kuraevaa625
Предмет: История,
автор: ulateles
Предмет: Математика,
автор: jannurlife