Помогите пожалуйста (ИНФ 8 классы), я ничего не понимаю :((( 3. Написать программы в...

0 голосов
47 просмотров

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


Информатика (12 баллов) | 47 просмотров
Дан 1 ответ
0 голосов

Ответ:

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

Объяснение:

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

(20 баллов)