program Project1;
var s,s1,s2:string;
begin
Readln(s);
s1:=copy(s,3,3);
s2:=copy(s,1,2);
delete(s,1,3);
insert(s1,s,1);
insert(s2,s,2);
Writeln(s);
Readln
end.
<h3>Алгоритм решения</h3>
Для каждого числа будем убирать последнюю цифру, пока число не станет нулём. При этом для очередной последней цифры ответ умножаем на 10 и прибавляем к нему эту цифру.
Для одного числа алгоритм будет выглядеть так:
while x > 0:
ans = ans * 10 + (x mod 10)
x = x // 10
Где <em>x </em>- заданное число, <em>ans </em>- ответ на задачу (перевёрнутое число), <em>mod </em>- операция получения остатка, <em>// </em>- операция целочисленного деления.
Формально, <em>x mod 10 </em>возвращает последнюю цифру числа <em>x </em>("остаток от деления x на 10"), а <em>x // 10 возвращает число </em>x <em>без последней цифры ("разделить x на 10 и отбросить остаток").</em>
<h3>Решение (Pascal)</h3>
var
x, i, ans: integer;
begin
for i := 1 to 5 do
begin
read(x);
ans := 0;
while (x > 0) do
begin
ans := ans * 10 + (x mod 10);
x := x div 10;
end;
write(ans, ' ');
end;
writeln;
end.
----------------------------
Файл решения прикреплён.
{Составте программу табулирования функции y=1/x^2 с шагом 0,5 и интервал -5<x<7}
const
max_x = 7;
min_x = -5;
d_x = 0.5;
var
x, y: real;
begin
x := min_x;
while(x < max_x) do
begin
if(x <> 0) then
y := 1 / (x * x)
else y := 0;
writeln('x=', x:2:1, ' y=', y:2:5);
x := x + d_x;
end;
end.
32*4*60с*1*част.дискр(ЧД)=15000*1024*8 бит
ЧД=15000*1024*8/(32*4*60*1)=16000Гц=16Кгц
Знаковая
%просто текст, потрібно мінімум 20 символів %