49

Дано натуральное двузначное число. Если цифры одинаковы, то увеличить заданное…

15 марта 2023

Дано натуральное двузначное число. Если цифры одинаковы, то увеличить заданное число в 2 раза, если разные то большую заменить на 0. Помогите решитьзадачу на паскале (срочно

категория: информатика

55

var a,z,x: integer; beginread (a); z: =a div 10; x: =a mod 10; if z=x then write (a*2) else beginif z>x then z: =0 else x: =0; writeln (z,x); end; end.

Знаете ответ?

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