Запишите if then else для решения задачки: отыскать сумму s двух

Запишите if then else для решения задачки: отыскать сумму s 2-ух чисел m и n, если эти числа одинаковы, в неприятном случае найти r -- разность m и n

Задать свой вопрос
1 ответ
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.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт