Решить в pascalabcnet. срок сдачи 21 октября 2017 г (составьте программу, которая проверяет оканчиваются ли вводимые числа на 5. составьте программу, которая проверяет: является ли вводимое число двузначным и равна ли сумма цифр числа 8.)

279

482

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

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

anastasiya249

Информатика

4,4(55 оценок)

Program n1; var x: integer; begin writeln('введите число'); readln(x); if (x mod 10 = 5) or (x mod 10 = -5) then writeln('число оканчивается на 5') else writeln('число не оканчивается на 5'); end. program p2; var x, y, sum: integer; begin writeln('введите число'); readln(x); if ((x > = 10) and (x < = 99)) or ((x < = -10) and (x > = -99)) then writeln('является двузначным') else writeln('не является двузначным'); y : = abs(x); sum : = 0; while (y < > 0) do begin; sum : = sum + (y mod 10); y : = y div 10; end; if sum = 8 then writeln('сумма цифр равна 8') else writeln('сумма цифр не равна 8'); end.