Var
c: integer;
begin
readln(c);
writeln(sqr(c mod 10));
end.
Как я тебя понял, языки программирования это C1 и Java
Семёнов математика.Иванов физика.Борисов информатика.
Var
s, s1, sn: string;
i, n, p1, p2: integer;
begin
Readln(s);
p1 := Pos(' ', s) - 1;
n := Length(s);
i := n;
while s[i] <> ' ' do i := i - 1;
p2 := i + 1;
s1 := Copy(s, 1, p1);
sn := Copy(s, p2, n + 1 - p2);
s := sn + Copy(s, p1 + 1, p2 - p1 - 1) + s1;
Writeln(s)
end.
Var
a:array[1..10] of integer;
i,d:integer;
begin
d:=1;
for i:=1 to 10 do begin
writeln(i ,' число массива = ');
read(a[i]);
if(a[i]<>0) then d:=d*a[i];
end;
writeln(' Произведение равно ', d);
end.