Задание:
Напишите пожалуйста, 3 программы на Pascal'е: 1. Дано целое число. Если оно положительное, то прибавить к нему 1, если же нет, то найти остатокот деления этого числа на 2.
Решение:
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. 2 задача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.
Знаете другой ответ?