Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
//Pascal
var
factorial: longint;
n, i: byte;
begin
write('n = '); readln(n);
factorial := 1;
for i:=2 to n do
factorial := factorial * i;
writeln('n! = ', factorial);
end.
1.Переместить указатель мышки по тексту с нажатой левой кнопкой.
2.Ctrl+A
10. 4^4= 256
11.
F(1) = 1+3= 4
F(2) = 2+3=5
F(3)= 5+4=9
F(4)=9+5=14
F(5)= 14+9= 23
F(6)= 23+14=37
F(7) = 37+23=60 - ответ
1) 75
2)226
3)695
Жду лайкосики и удачив информатике))