Question

Pascal.ABC

Задача 1:

Вывести все двузначные числа по 10 в каждой строке.

Задача 2:

Посчитать сумму и произведение всех цифр введенного числа n

Подсказка: n mod 10

Задача 3:

Пользователь вводит шестизначное число. Проверить палиндром ли это.

-

Answer 1

1.

begin

   for var i := 1 to 9 do begin

       for var j := 0 to 9 do write(i*10+j, ' ');

       writeln;

   end;

end.

2.

var

   n, s, p : integer;

begin

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

   readln(n);

   p := 1;

   while n > 0 do begin

       s += n mod 10;

       p *= n mod 10;

       n := n div 10;

   end;

   writeln('сумма ', s);

   writeln('произведение ', p)

end.

3.

var

   a : integer;

begin

   write('введите 6-и значное число: ');

   readln(a);

   if (a mod 10 = a div 100000) and ((a div 10) mod 10 = (a div 10000) mod 10) and ((a div 100) mod 10 = (a div 1000) mod 10) then writeln('палиндром') else writeln('нет');

end.