PHP? Зачем. Вариант на паскале:
<span>var i,j:integer;
begin
write('3x znschnoe chislo');
readln(i);
j:=(i mod 10)*100+((i mod 100)div 10)*10+i div 100;
writeln(j);
end.</span>
Программа для среды программирования Кумир:
использовать Робот
алг
нач
лог прав=да
цел x=0, y=0
нц
если (mod(div(y,2),2)=0) = (mod(x,2)=0) то закрасить все
выбор
при прав и справа свободно: вправо; x:=x+1
при не прав и слева свободно: влево; x:=x-1
при сверху свободно: вверх; прав:=не прав; y:=y+1
иначе выход
все
кц
кон
Var
a, b: integer;
begin
readln(a);
while (inttostr(a).Length > 1) do
begin
b := 0;
foreach c: char in inttostr(a) do
b += strtoint(c);
a := b;
end;
writeln(b);
<span>end.
=======================
var
a, b, e: integer;
d: string;
begin
readln(a);
d := inttostr(a);
while (length(d) > 1) do
begin
d := inttostr(a);
b := 0;
for e := 1 to length(d) do
b += strtoint(d[e]);
a := b;
end;
writeln(b);
<span>end.</span></span>
1. a)
б)
в)
2. Вася работает на стройке. В первый день Вася натаскал 15кг материалов, во второй - 30, в третий - 10(Столбики А1, А2, А3 соответственно). В А4 запишите сколько вася натаскал за 3 дня. В колонке B запишите(через формулы) отношение за соответствующий день к общему количеству в процентах.
Var a,b:integer;
begin
write('Введите число a: ');
readln(a);
write('Введите число b: ');
readln(b);
if (a > b) then
writeln('a больше b')
else if (b > a) then
writeln('b больше a')
else
writeln('a равен b');
end.