Напишите , 3 программы на pascal'е: 1. дано целое число. если оно положительное, то прибавить к нему 1, если же нет, то найти остаток от деления этого числа на 2. 2. ввести двузначное число. определить, какая цифра в числе больше. 3. дано число. является ли число 7 его делителем?

275

453

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

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

dmutallapova

Информатика

4,5(52 оценок)

program r1; var n: integer; beginassign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); readln(n); if n> 0 then n: =n+1 elsen: =abs(n mod 2) ; {примечание-остаток будет положительным)writeln(n); close(input); close(output); end.

program r1; var n,l: integer; beginassign(input,'input.txt'); reset(input); assign(output,'output.txt'); rewrite(output); readln(n); if (n mod 10)> (n div 10) then writeln('2> 1') elseif (n mod 10)< (n div 10) then writeln('2< 1') elseif (n mod 10)=(n div 10) then writeln('2=1'); close(input); close(output); end.