Огэ информатика решение

program xxx;   var a,b, c : integer; begin

  writeln('введите 3 числа-');

  read(a,b,c);   if a> =0 then a: = sqr(a);

  if b> =0 then b: = sqr(b);

  if c> =0 then c: = sqr(c);

  writeln('ответ: ');

  write(a, b, c);

  readlnend.

var c: char; s: string; i,k,p: integer; begin readln(c); {чтение заданного символа} readln(s); {чтение заданного слова} p: = pos(c,s); {определяем позицию символа} if (p=0) then {функция вернёт 0, если символ не будет найден} writeln('такого символа в слове нет.') else {если символ есть, то } begin writeln('указанный символ расположен на позиции: ',p); k: = 0; {k хранит количество вхождений} p: = length(s); {p хранит длину строки(слова)} for i: =1 to p do {пробегаем по всем символам слова} if (s[i]=c) then inc(k); {если символ совпадает, увеличиваем на 1 переменную k} writeln('количество вхождений данного символа: ',k); end; end.

var

n,a: integer;

begin

readln(n);

a: =(n mod 10)*1000+((n mod 100) div 10)*100 + ((n mod 1000) div 100)*10+ n div 1000;

if n> a then

writeln('число ', n, ' больше перевертыша ', a)

else

writeln('перевертыш ', a, ' больше числа ', n);

end.

значит  так  кролик  это  4 лапы + 1  голова  5(ед) ,  голубь 2 лапы  + 1 голова= 5(ед),    размещаем  сначало  во  все клетки по  голобю + по кролику  получается в каждой  клетке уже по  8 (ед)    остается 3 кролик и  4  голубя        5 елток  тоесть еще по  одному  кролику  и  в 2  оставшиеся по 2  голобу    получается    3 клетки  будет  по 1 голубю и 2 кролика    и 2  клетки  с 1 кроликом и 3 голубями          проверяем    1*3+2*5=13      и    5*1+3*3=14   тоесть  все верное  : )