Отдаю последние баллы!
даны действительные числа A и B . Если числа не равны, то большее увеличить в пять раз, а меньшее уменьшить на пять, в противном случае, если они положительные, то оставить их без изменения, если отрицательные , то возвести в квадрат
Ответы
Ответ дал:
0
BEGIN
writeln('Enter A number');
realdln(A);
writeln('Enter B number');
readln(B);
if (A<>B) then
begin
A:=A*5;
B:=B-5;
end else
begin
if ((A<0) and (B<0))
begin
A:=A*A;
B:=B*B
end;
end;
writeln(A, B);
END.
writeln('Enter A number');
realdln(A);
writeln('Enter B number');
readln(B);
if (A<>B) then
begin
A:=A*5;
B:=B-5;
end else
begin
if ((A<0) and (B<0))
begin
A:=A*A;
B:=B*B
end;
end;
writeln(A, B);
END.
Ответ дал:
0
Благодарствую
Ответ дал:
0
2 ; пропустил
Вас заинтересует
1 год назад
1 год назад
6 лет назад
9 лет назад
9 лет назад
9 лет назад