#include <iostream>
#include <string>
using namespace std;
int main()
{
string st;
cout <<"Введите строку; ";
getline(cin, st);
for(auto it=st.begin(); it!=st.end(); ++it)
{
switch(*it)
{
case 'a': { *it='b'; break; }
case 'b': { *it='a'; break; }
case 'A': { *it='B'; break; }
case 'B': { *it='A'; break; }
}
}
cout <<"Измененная строка: " <<st << endl;
return 0;
}
Результат работы программы на скриншоте.
Все переведем в байты
А) 4098 БАЙТ
Б) 4 БАЙТА
В) 36 БИТ = 36/8 = 4,5 БаЙТА
Г) 5 БАЙТ
Д) 4 Кбайт = 4×1024 = 4096 БАЙТ
Е) 31 БИТ = 31/8 = 3.875 БАЙТ
А Д Г В Б Е
<em>// PascalABC.NET 3.3, сборка 1611 от 06.01.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
<u>Вариант 1</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
var y:real;
if x<=0 then y:=2*Sin(Abs(x))
else
if x<=5 then y:=Sqrt(x)
else
if x<=10 then y:=2*x*x-Sqrt(x)
else y:=Cos(2*x)/a;
Writeln('Y=',y)
end.
<u>Вариант 2</u>
begin
var (x,a):=ReadReal2('Введите х и a через пробел:');
Writeln('Y=',
x<=0 ? 2*Sin(Abs(x)) :
x<=5 ? Sqrt(x) :
x<=10 ? 2*x*x-Sqrt(x) : Cos(2*x)/a)
end.
<u>Примеры</u>
Введите х и a через пробел: 12.4 -3
Y=-0.315050171382724
Введите х и a через пробел: 5.8 1.156
Y=64.8716810842415
Var a,b,x:real;
begin
write('Введите a,b'); readln(a,b);
writeln('Уравнение: ',a,'x^2 + ',b,'x = 0');
x:=-b/a;
writeln('Корни уравнения: х=0 x=',x<span>);
</span>end.
Program First;
var
x, y : longint;
begin
readln(x);
y:=(x-7)*(x+5);
writeln(y);
end.