Var x,y:real;
begin
readln(x,y);
if (y<x)and(x*y<0)
then writeln('Yes') else writeln('No');
end.
Пример:
1 -2
Yes
Думаю это ответ б. Потому что все остальные передают информацию.
Разбивают на группы по три буквы, затем каждую группу разворачивают "задом наперед":
например:
красота
кра - сот - а
арк - тос - а
значит, чтоб "расшифровать" - делаем то же:
фнимроицая
фни - мро - ица - я
инф - орм - аци - я
Ура!)
<span>shift, caps lock) это же элементарно </span>
var i,B,s:integer;
begin
write('Введите число B: ');
readln (B);
for i:=10 downto B do s:=s+i*i;
writeln ('Сумма квадратов всех целых чисел от 10 до ',B,': ',s)
end.