На ПИТОНЕ Симметричное число
Дано четырехзначное число. Определите, является ли его десятичная запись
симметричной. Если число симметричное, то выведите 1, иначе выведите любое другое
целое число. Число может иметь меньше четырёх знаков, тогда нужно считать, что его
десятичная запись дополняется слева незначащими нулями.
На вход программе подается целое неотрицательное число, не превосходящее 9999.
Программы должна вывести ответ на задачу.
Примеры
Ввод
2002
2008
Вывод
1
37

program chislo;

var n,delit,count,ccount: integer; beginread(n); count: =0; ccount: =0; for delit: =1 to n doif n mod delit = 0 thenbegincount: =count+1; if (delit mod 2 = 0) then ccount: =ccount+1; end; writeln('делителей: ',count); writeln('четных делителей: ',ccount); end.

var

i,n: integer;

begin

read(n);

for i: =0 to 3 do

writeln (4*n-i);

end.

var i,n,s: nteger;

begin

  read(n);

  for i : = 1 to n do

      if i mod 2 = 0 then s: = s-1/i;

      else s: = s+1/i;

  writeln(s);

end.

1) чтобы получить 4 литра нужно из девятилитрового ведра перелить воду в пятилитровое ведро. т.к. в пятилитровое ведро вместится только 5 литров, то в девятилитровом останется 4 литра.

2)  чтобы получить 1 литр нужно из девятилитрового ведра перелить воду в пятилитровое ведро. т.к. в пятилитровое ведро вместится только 5 литров, то в девятилитровом останется 4 литра. теперь нужно из девятилитрового ведра, в котором сейчас 4 литра, перелить воду в трёхлитровое ведро. т. к. в трёхлитровое ведро вместится только 3 литра, то в девятилитровом будет 1литр. в пятилитровом так и останется 5 литров.