Напишите пожалуйста, 3 программы на Pascal'е: 1. Дано целое число. Если оно положительное, то прибавить к нему 1, если же нет, то найти остаток от деления этого числа на 2. 2. Ввести двузначное число. Определить, какая цифра в ...
Напишите пожалуйста, 3 программы на Pascal'е: 1. Дано целое число. Если оно положительное, то прибавить к нему 1, если же нет, то найти остаток от деления этого числа на 2. 2. Ввести двузначное число. Определить, какая цифра в числе больше. 3. Дано число. Является ли число 7 его делителем?
Гость
Ответ(ы) на вопрос:
ГостьProgram R1;
Var n:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
if n>0 then n:=n+1 else
n:=abs(n mod 2) ; {примечание-остаток будет положительным)
writeln(n);
close(input);
close(output);
end. 2 задача Program R1;
Var n,l:integer;
begin
assign(input,'input.txt');
reset(input);
assign(output,'output.txt');
rewrite(output);
readln(n);
if (n mod 10)>(n div 10) then writeln('2>1') else
if (n mod 10)<(n div 10) then writeln('2<1') else
if (n mod 10)=(n div 10) then writeln('2=1');
close(input);
close(output);
end.
Не нашли ответ?
Похожие вопросы