program str;
var st,st1:string; i:integer;
begin
readln(i);
str(i,st);
i:=length(st)
st1:=copy(st,i,1);
st1:=st1+copy(st,2,i);
st1:=st1+copy(st,1,1);
writeln(st1)
end.
Масивы(одно и двух мерные) и строки
Решить если не всё то хоть что нить? очень надо:
1)Поменять местами последнюю и первую цифру числа
2) Найти кол-во отрицательных элементов
3) Найти сумму элементов в каждом столюце двумерного массива
4) в символьной строке имеются буквы А и Б. Установите какая буква встречается раньше, если просматривать символы слева направа.
5) Найти сумму целых положительных чисел больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 или 8
[COLOR=purple]Pascal[/COLOR]
1)Поменять местами последнюю и первую цифру числа
2) Найти кол-во отрицательных элементов
3) Найти сумму элементов в каждом столюце двумерного массива
4) в символьной строке имеются буквы А и Б. Установите какая буква встречается раньше, если просматривать символы слева направа.
5) Найти сумму целых положительных чисел больших 20, меньших 100, кратных 3 и заканчивающихся на 2,4 или 8
[COLOR=purple]Pascal[/COLOR]
Код:
P.S. Как я понял, читать надо число с клавиатуры?
а можно вопрос, что значит "str(i,st)"?
че то я не въехал...((( разъясните пожалуйста задачку?...
че то я не въехал...((( разъясните пожалуйста задачку?...
str(i,st) число i преобр в строку st
я бы делал
и никакой лишней памяти
далее следущие описания
2)
3)
4)
5)
за опечатки не бить )))
я бы делал
Код:
var num,l,p,k:longint;
begin
read(num);
l:=num mod 10; p:=num; k:=0;
while p>9 do
begin
k:=k+1;
p:=p div 10
end;
num:=num - p*round(exp(k*ln(10)))-l;
num:=num + l*round(exp(k*ln(10)))+p;
writeln(num)
end.
begin
read(num);
l:=num mod 10; p:=num; k:=0;
while p>9 do
begin
k:=k+1;
p:=p div 10
end;
num:=num - p*round(exp(k*ln(10)))-l;
num:=num + l*round(exp(k*ln(10)))+p;
writeln(num)
end.
и никакой лишней памяти
далее следущие описания
Код:
type ted=.... ;{тип эл-оа массива}
mas=array[1..n,1..m] of ted;
vect=array[1..n] of ted;
mas=array[1..n,1..m] of ted;
vect=array[1..n] of ted;
2)
Код:
function ch(var x:mas):integer;
var k,i:integer;
begin k:=0;
for i:=1 to n do
if x<0 then k:=k+1;
ch:=k
end;
var k,i:integer;
begin k:=0;
for i:=1 to n do
if x<0 then k:=k+1;
ch:=k
end;
3)
Код:
procedure sumst(var x:mas;sum:vect); {в sum результат}
var i,j:integer;
begin
for j:=1 to m do
begin
sum[j]:=0;
for i:=1 to n do sum[j]:=sum[j]+x[i,j]
end;
end;
var i,j:integer;
begin
for j:=1 to m do
begin
sum[j]:=0;
for i:=1 to n do sum[j]:=sum[j]+x[i,j]
end;
end;
4)
Код:
function fchar(var x:string):char;
var i:integer;
begin
i:=1; fa:=false; fb:=false;
while (i<=lenght(x))and not fa and not fb do
begin
if x='A' then fa:=true else
if x='Б' then fb:=true;
i:=i+1
end;
if fa then fchar:='A' else if fb then fchar:='Б'
end;
var i:integer;
begin
i:=1; fa:=false; fb:=false;
while (i<=lenght(x))and not fa and not fb do
begin
if x='A' then fa:=true else
if x='Б' then fb:=true;
i:=i+1
end;
if fa then fchar:='A' else if fb then fchar:='Б'
end;
5)
Код:
function sum:integer;
var i,s:integer;
begin
s:=0;
for i:=21 to 99 do
if (i mod 3 = 0) and ((i mod 10) in [2,4,8]) then s:=s+i;
sum:=s
end;
var i,s:integer;
begin
s:=0;
for i:=21 to 99 do
if (i mod 3 = 0) and ((i mod 10) in [2,4,8]) then s:=s+i;
sum:=s
end;
за опечатки не бить )))