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 тоесть все верное : )
Популярные вопросы