Program j56; var a, b:integer;
begin
write('Введите 2 числа:');
readln(a, b);
if (a>b) then
if (a mod b=0) then
writeln('Ваше первое число кратно второму.');
writeln('Частное - ', a div b, '.')
10. else
writeln('Ваше первое число не кратно второму.');
writeln('Частное - ', a div b, '.');
writeln('Остаток - ', a mod b, '.')
else
if (b mod a=0) then
writeln('Ваше первое число кратно второму.');
writeln('Частное - ', b div a, '.')
else
writeln('Ваше первое число не кратно второму.');
writeln('Частное - ', b div a, '.');
writeln('Остаток - ', b mod a, '.');
end.
Мне пишут Встречено 'else', а ожидалось ';'
Ставлю ; , но Встречено 'else', а ожидался оператор строка 10.
begin
write('Введите 2 числа:');
readln(a, b);
if (a>b) then
if (a mod b=0) then
writeln('Ваше первое число кратно второму.');
writeln('Частное - ', a div b, '.')
10. else
writeln('Ваше первое число не кратно второму.');
writeln('Частное - ', a div b, '.');
writeln('Остаток - ', a mod b, '.')
else
if (b mod a=0) then
writeln('Ваше первое число кратно второму.');
writeln('Частное - ', b div a, '.')
else
writeln('Ваше первое число не кратно второму.');
writeln('Частное - ', b div a, '.');
writeln('Остаток - ', b mod a, '.');
end.
Мне пишут Встречено 'else', а ожидалось ';'
Ставлю ; , но Встречено 'else', а ожидался оператор строка 10.
More Questions From This User See All