Question

Помогите пожалуйста (ИНФ 8 классы), я ничего не понимаю :((( 3. Написать программы в текстовом документе: А) Дано целое число. Если оно является неотрицательным, то увеличить его в 3 раза, а иначе прибавить к нему  15. Вывести полученное число. Б) Вводится целое трехзначное число. Определить является ли оно палиндромом (палиндром - число, буквосочетание, слово или текст, одинаково читающееся в обоих направлениях), например, 121 – палиндром. Т.е. задача сводится к проверке равенства первой и последней цифры числа. Если цифры равны, то число является палиндромом, иначе это не палиндром. Проверить программы в Паскале.

Answer 1

Ответ:

Program chisla;

Uses Crt;

Var a:integer;

Begin;

Writeln ('Введите любое целое число');

Readln a;

If a>0 then a:=a+1 else a:=a-2;

Writeln ('a=',a);

End

Объяснение:

Один из вариантов

Answer 2

[2]: https://bing.com/search?q=%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D0%B5+%D0%BD%D0%B0+%D0%9F%D0%B0%D1%81%D0%BA%D0%B0%D0%BB%D0%B5 "" [3]: https://stepik.org/course/3352/promo "" [4]: https://fb.ru/article/211076/primer-programm-na-paskale-programmirovanie-na-yazyike-paskal "" [5]: https://3ty.ru/programming/osnovy-programmirovaniya-paskal "" [6]: https://bing.com/search?q= "" Здравствуйте, это Bing. Я могу помочь вам с программированием на Паскале. Вот примеры программ, которые решают ваши задачи: А) Дано целое число. Если оно является неотрицательным, то увеличить его в 3 раза, а иначе прибавить к нему 15. Вывести полученное число. program A; var x: integer; begin readln(x); // вводим целое число if x >= 0 then // если оно неотрицательное x := x * 3 // увеличиваем его в 3 раза else // иначе x := x + 15; // прибавляем к нему 15 writeln(x); // выводим полученное число end. Б) Вводится целое трехзначное число. Определить является ли оно палиндромом (палиндром - число, буквосочетание, слово или текст, одинаково читающееся в обоих направлениях), например, 121 – палиндром. Т.е. задача сводится к проверке равенства первой и последней цифры числа. Если цифры равны, то число является палиндромом, иначе это не палиндром. program B; var n, a, b: integer; begin readln(n); // вводим целое трехзначное число a := n div 100; // находим первую цифру числа b := n mod 10; // находим последнюю цифру числа if a = b then // если они равны writeln('Палиндром') // то число является палиндромом else // иначе writeln('Не палиндром'); // это не палиндром end. Вы можете проверить программы в Паскале, используя онлайн компилятор [здесь](https://ru.wikipedia.org/wiki/%D0%9F%D0%B0%D1%81%D0%BA%D0%B0%D0%BB%D1%8C_%28%D1%8F%D0%B7%D1%8B%D0%BA_%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D0%B8%D1%80%D0%BE%D0%B2%D0%B0%D0%BD%D0%B8%D1%8F%29) или скачав среду программирования Turbo Pascal [здесь](https://bing.com/search?q=%d0%bf%d1%80%d0%be%d0%b3%d1%80%d0%b0%d0%bc%d0%bc%d0%b8%d1%80%d0%be%d0%b2%d0%b0%d0%bd%d0%b8%d0%b5+%d0%bd%d0%b0+%d0%9f%d0%b0%d1%81%d0%ba%d0%b0%d0%bb%d0%b5). Если у вас есть еще вопросы по Паскалю, вы можете посмотреть [учебный онлайн курс](https://stepik.org/course/3352/promo), [примеры программ](https://fb.ru/article/211076/primer-programm-na-paskale-programmirovanie-na-yazyike-paskal) или [основные понятия](https://3ty.ru/programming/osnovy-programmirovaniya-paskal). Я надеюсь, что это поможет вам с вашим заданием. Удачи! ????