Задачи на pascalABC

[Дмитрий С]

1)в двузначном числе поменять местами цифры и вывести его на экран.


2)в 3 -х значном числе проверить равна ли сумма двух младших разрядов третьему старшему разряду.


3)дано N-натуральное число,найти в нем количество четных цифр и количество нечетных цифр.


Буду очень благодарен за решение. И подробную роспись. Пропустил из-за болезни. Теперь нужно нагонять...

[min@y™]

Пропустил из-за болезни.

ещё один «самый умный».
у тебя-то чо за диагноз? рыбий грипп?

[Дмитрий С]

Это ведь форум помощи, а не расспросов...

[min@y™]

1)в двузначном числе поменять местами цифры и вывести его на экран.

y:= (x div 10) + 10 * (x mod 10);

2)в 3 -х значном числе проверить равна ли сумма двух младших разрядов третьему старшему разряду.

condition:= (x mod 10) + ((x mod 100) mod 10) = x div 100;

3)дано N-натуральное число,найти в нем количество четных цифр и количество нечетных цифр.

n_odd:= 0;
n_evn:= 0;

while n <> 0 do
  begin
    if n and 1 = 0
      then inc(n_evn)
      else inc(n_odd);
    n:= n div 10;
  end;

ахтунг! писал на заборе красным кирпичом.

[Дмитрий С]

Спасибо за помошь!

[min@y™]

Это ведь форум помощи, а не расспросов...

ты разделом ошибся. п...доболов-симулянтов тут все за версту чуют. врать научись, халявщик.

[min@y™]

Спасибо за помошь!

тебе эта писанина не поможет. так шо не за что.
чем меньше конкурентов, тем зарплата больше

[Дмитрий С]

Да мне оно и не сильно нужно) Информатику выбрал 2 профилем т.к. ближе всего к политеху...

[min@y™]

Да мне оно и не сильно нужно) Информатику выбрал 2 профилем т.к. ближе всего к политеху...

тогда ты не разделом ошибся, а форумом. <---- лживый смайлик, если чо