Pascalabc.net. даны 2 числа a и b.найти меньшее и определить делится ли оно нацело на 5.

147

239

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

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

Yto4kaya

Информатика

4,6(43 оценок)

Var a,b: integer; begin write('введите число а '); readln (a); write('введите число б '); readln (b); if (a = b) then writeln ('числа равны') else if (a < b) then begin if ( a mod 5 = 0) then writeln ('число а меньше и делится на 5') else writeln('число а меньше и не делится на 5'); end else begin if ( b mod 5 = 0) then writeln ('число б меньше и делится на 5') else writeln ('число б меньше и не делится на 5'); end; end.