№1 дано четырехзначное число. проверить, является ли оно палиндромом. примечание: палиндромом называется число, слово или текст, которые одинакового читаются слева направо и справа налево. например, в нашем случае это числа 1441, 5555, 7117 и т. д. №2 автоморфным числом называется число, равное последним цифрам своего квадрата. например, 52=25, 252=625. составить программу, которая определяет, являются ли числа автоморфными.

Pascalabc.net 3.3.5, сборка 1659 от 09.04.2018 внимание! если программа не работает, обновите версию! №1 begin   var a: =readinteger.tostring;   writeln(a=a.inverse) end. примеры 2441 false 1991 true №2 begin   var n: =int64(readinteger);   var s: =n.tostring;   var s2: =(n*n).tostring;   if s2.right(s.length)=s then writeln('афтоморф')   else writeln('не автоморф') end. примеры 625 афтоморф 1020 не автоморф

1

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    if n mod 2 = 0 then write('четное') else write ('нечетное');

    realdn

end.

 

2

program xxx;

    var n : integer;

begin

    write('введите число n=');

    readln(n);

    e : = n mod 10

    if e = 7 then write('заканчивается на 7') else write ('не заканчивается на 7');

    realdn

end.

 

#include < stdio.h>

#include < conio.h>

int main( void )

{

  int c, i;

  printf("input number: ");

  scanf(& c);   //амперсант c в скобках

  i = (int)(c%10);

  c = i*i;

  printf("answer: %i", c);

  getch();

  return 1;

}