Var s,s1,t1,t2:string;i,n,m:integer;
beginread(s);n:=length(s);for i:=n downto 1 do s1:= s1 + s[i];m:=n div 2;writeln(n, m :4);t1:= copy(s,1,m);t2:= copy(s1,1,m);if t1 = t2 then writeln ('Введенный текст перевертыш')else writeln (' Не перевертыш введенный текст');end.<span />
Program pp;
var a,b:integer;
begin
read(a,b);
if (a>0) and (b>0) then begin
a:=sqr(a);
b:=sqr(b);
end;
if (a<0) and (b<0) then begin
a:=abs(a);
b:=abs(b);
end;
writeln(a,b);
end.
*На столе он перед нами, на него направлен взор,подчиняется программе, носит имя...(Монитор).***Не зверушка, не летаешь, а по коврику скользишьи курсором управляешь. Ты – компьютерная...(Мышь).***Нет, она – не пианино, только клавиш в ней – не счесть! Алфавита там картина, знаки, цифры тоже есть.Очень тонкая натура. Имя ей ... (Клавиатура).***Сохраняет все секреты «ящик» справа, возле ног,и слегка шумит при этом. Что за «зверь?». (Системный блок).***Сетевая паутина оплела весь белый свет, не пройти детишкам мимо. Что же это? (Интернет).
Мой лучший друг-компьютер. Мне с ним все супер-пупер. А остальное все да фени. Катись все к ене-бене… Не нужно мне застолье, Пусть все дела в постое. С утра залезу в интернет, А всем домашним скажу”нет”. Друзья по интернету- От вас я жду ответа, Веселого привета И дельного совета. Вновь вы скучать мне не даете И стрелы злобы не метнете. Меня вы чем-нибудь займете, До глубины души проймете. Без вас теперь уж грустно мне. Вы снитесь даже мне во сне. Я с вами снова весела- Сама я свет и доброта!
Мой компьютер, милый,Я тебя убила –Ацетоном залила,Ногти красила,И дрогнула рука!Я тебе испортила ушки,Эти маленькие дырочки,Которыми ты слушаешь,Я вела себя по-свински,Но ты же знаешь,Ты – мой самый близкийМилый человечек,Ну шевельни свои железкиИ загрузись, прости!
Решение вашей формулы и соответственно сама формула
C=25, d=2
т.к.:
1 круг
100/2=50 остаток 0
выполняем цикл
с=50, d=1
2 круг:
50/2=25 остаток 0
выполняем цикл
c=25, d=2
3 круг
25/2=12 остаток 1 (условие не соблюдено)
выходим из цикла
осталось c=25, d=2