Var
n,x:string;
i:integer;
begin
write('Введите число n: ');
readln(n);
for i:=length(n) downto 1 do x:=x+n[i];
writeln('Обратное число: ',x)
<span>end.
или можно так:
</span>var
n:string;
begin
write('Введите число n: ');
readln(n);
writeln('Обратное число: ',ReverseString(n) )
end.
Var
i: integer;
s: string;
begin
readln(s);
for i := 1 to s.Length do
if(s[i] = '.') then s[i] := 'M';
writeln(s);
end.
"сумма полученных значений числа F"?
Если х=800, то F=800/2=400.
Если х=-801, то F=(-801+1)/2=-400.
Если действительно нужна сумма двух F, то она будет равна 0.
По стандарту 1 символ = 1 байт (включая пробелы), отсюда имеем
1. <span>1 сентября — День знаний = 24 байта (20 букв и 4 пробела = 24)
2. </span><span>Здравствуй, школа! = 18 байт (15 букв, 1 пробел, 1 запятая и 1 восклицательный знак)</span>
На каком языке писать?
float pow3(float a) {
return(a*a*a);
}
void main() {
float nums[5]; // считаем, что все числа заданы
int i;
for(i=0;i<5;i++) {
print(pow3(nums[i]));
}
}