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.

mon13 mon13    1   24.05.2019 08:32    0

Ответы
Крейми51 Крейми51  01.10.2020 10:47

7. if a mod b = 0 then begin

8. writeln('Ваше первое число кратно второму.');

9.writeln('Частное - ', a div b, '.');

10.end

11. else ...

Объяснение:

ПОКАЗАТЬ ОТВЕТЫ
Другие вопросы по теме Информатика