Var x,y,z:byte;
begin
read(z);
x:=z div 10;
y:=z mod 10;
writeln('Сумма равна:',x+y,' Новое число: ',y,x)
end.
Линейка,меню,редактирование
2 в 33 степени 8589934592, то чтобы перевести в биты нужно это число разделить на 1024, полученное число снова разделить на 1024, а потом это число делить на 8
Var d:array[1..10] of integer;
s,i:integer;
Begin
s:=1;
For i:=1 to 10 do
begin
readln(d[i]);
If d[i]<>0
Then S:=S*d[i];
end;
Writeln(S);
end.