varn: integer; beginreadln(n); n: = n div 10; n: =(n div 100)*10 +n mod 10; writeln(n); n: = (n mod 10)*100+ ((n mod 100) div 10)*10+ n div 100; writeln(n); end.
Ответ дал: Гость
var
a,b: integer;
begin
write('введите в одной строке два целых числа и нажмите < enter> ');
readln(a,b);
if a=b then writeln('числа равны')
else
if a> b then writeln(a,' больше')
else writeln(b,' больше')
end.
Ответ дал: Гость
смотря откуда эта формула и как вы ее применяете
похоже, что пи - просто функция без аргументов, т.е. ничего ставить не надо
Популярные вопросы