подготовить ответ к зачету на вопрос "Сеть подключения. Браузеры" по предмету Информационные технологии

265

470

Посмотреть ответы 1

Ответы на вопрос:

Марина2808

Информатика

4,8(87 оценок)

Program aaa; var a,b: integer; begin writeln('введите два числа: '); readln(a,b); if a> b then begin if (a mod b) = 0 then writeln('число ',a,' точно делится на число ',b) else writeln('число ',a,' не делится на число ',b,' без остатка'); end; if b> a then begin if (b mod a) = 0 then writeln('число ',b,' точно делится на число ',a) else writeln('число ',b,' не делится на число ',a,' без остатка '); end; end.