На Паскале:
program Ostatok;var c: integer;beginwriteln('Введите число С.');readln(c);writeln('Остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10));end.
На Паскале:
program Ostatok;
var c: integer;
begin
writeln('Введите число С.');
readln(c);
writeln('Остаток от деления ',c,' на 10, возведенный в квадрат, равен ',sqr(c mod 10));
end.