Ребятаа, помоги прошу. Самостоятельная:( 1.даны два числа m n. большее из этих чисел уменьшить на 3, а меньшее удвоить. составьте алгоритм. 2. составьте алгоритм попадания точки в третью четверть окружности.
Ребятаа, помоги прошу. Самостоятельная:(
1.даны два числа m n. большее из этих чисел уменьшить на 3, а меньшее удвоить. составьте алгоритм.
2. составьте алгоритм попадания точки в третью четверть окружности.
Гость
Ответ(ы) на вопрос:
Гость1.
var m,n:real;
begin
writeln ('Введите 2 числа:');
readln (m,n);
if m>n then
begin
m:=m-3;
n:=n*2;
writeln ('m = ',m,' n = ',n)
end
else
begin
n:=n-3;
m:=m*2;
writeln ('m = ',m,' n = ',n);
end;
end.
А второе я не знаю как решить(
Не нашли ответ?
Похожие вопросы