#include <iostream>
using namespace std;
unsigned long int Rev(unsigned long int x);
int main()
{
unsigned long int a, b;
cout << "Input a natural number A: ";
cin >> a;
cout << "Input a natural number B: ";
cin >> b;
cout << "Rev(Rev(A) + Rev(B)) = " << Rev(Rev(a) + Rev(b));
}
unsigned long int Rev(unsigned long int x) {
unsigned long int numb = 0;
while (x != 0) {
numb = (numb + x % 10) * 10;
x /= 10;
}
return numb / 10;
}
/* Форматирование, скорее всего, не сохранится, поэтому прикрепляю .cpp файл */
Ответ:
95.625 КБ
Объяснение:
Пусть символ компьютерного алфавита весит 1 байт. Вычислим количество символов в сообщении.
34 * 60 * 48 = 97920
Сообщение весит 97920 байт = 95.625 КБ.
Var s: string;
<span> n,k: integer;
</span><span>begin
</span><span> write('строка: '); readln(s);
</span><span> n:=pos(' ',s);
</span><span> if n>0 then
</span><span> begin
</span><span> writeln('первая буква второго слова: ',s[n+1]);
</span><span> writeln('последняя буква: ',s[length(s)]);
</span><span> writeln('количество букв: ',length(s)-n);
</span><span> k:=0;
</span><span> for n:=1 to length(s) do
</span><span> if s[n]='a' then k:=k+1;
</span><span> if k>0 then writeln('количество букв a: ',k)
</span><span> else writeln('в строке нет буквы a');
</span><span> end
</span><span> else writeln('в строке одно слово');
</span><span>end.
</span><span>
</span>
//1
Var
f:text;
s,s1:string;
begin
readln(s);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
s:=s1+s;
assign(f,'text.txt');
rewrite(f);
write(f,s);
close(f);
end.
//2
Var
f:text;
s1,s2:string;
begin
assign(f,'text1.txt');
reset(f);
while not Eof(f) do
read(f,s1);
close(f);
assign(f,'text.txt');
reset(f);
while not Eof(f) do
read(f,s2);
close(f);
s1:=s1+s2;
assign(f,'text1.txt');
rewrite(f);
write(f,s1);
close(f);
end.