Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
Преимущество
Объяснение:
гааоаооаьатаататптпптп
var a: integer; beginreadln(a); write (a div 10); end.
грубо и сердито:
var c: longint;
begin
read(c);
c: =c mod 10;
c: =sqr(c);
writeln(c);
end.
Популярные вопросы