Запишите if then else для решения задачи: найти сумму s двух чисел m и n, если эти числа равны, в противном случае найти r -- разность m и n
Запишите if then else для решения задачи: найти сумму s двух чисел m и n, если эти числа равны, в противном случае найти r -- разность m и n
Гость
Ответ(ы) на вопрос:
ГостьProgram pr1;
VAR m, n, s, r: Real; {Если вдруг пользователь введет не целое число}
BEGIN
Readln(m, n);
if (m=n) then begin S:=m+n; Write(s); end;
else begin r:=m-n; Write (r); end;
END.
Не нашли ответ?
Похожие вопросы