Цитата:
1.Составить программу:
Даны два числа А и В. Если первое число больше второго по абсолютной величине, то необходимо первое уменьшить в 5 раз.
|
Код:
var a,b:integer;
begin
write ('Введи два чиcла: ');
readln (a,b);
if (abs(a)>abs(b)) then
a:=a*5;
writeln ('A = ',a,'; B = ',b);
end.
Цитата:
2. Составить программу:
Даны два числа А и В с разными знаками. Найти модуль отрицательного числа и квадрат положительного.
|
Код:
var a,b:integer;
begin
write ('Введи два чиcла: ');
readln (a,b);
if a<=0 then
a:=abs(a)
else
a:=sqr(a);
if b<=0 then
b:=abs(b)
else
b:=sqr(b);
writeln ('A = ',a,'; B = ',b);
end.
Однако очень прискорбно, что приходится решать такие архипростые задачи...