uses crt;
var a,b,s:real; z:char;
begin
write('Vvedite A = ');
readln(a);
write(' + - / * : ' );
readln(z);
write('Vvedite B = ');
readln(b);
case z of
'+': begin s:=a+b; writeln(a,' + ',b,' = ',s); end;
'-': begin s:=a-b; writeln(a,' - ',b,' = ',s); end;
'*': begin s:=a*b; writeln(a,' * ',b,' = ',s); end;
'/': begin s:=a/b; writeln(a,' / ',b,' = ',s); end;
else
writeln('error: incorrect operation symbol!!!');
end;
readln;
end.
Задачка интересная, исследуем её.
Понятно, что программ будет 8. Но в задаче спрашивается, сколько разных чисел получится из двойки, поэтому нужно исследовать каждую программу
1. +++ (((2 +2) +2) +2 = 8
2. ++* (((2 +2) +2) *3 = 18
3. +*+ (((2 +2) *3) +2 = 14
4. *++ (((2 *3) +2) +2 = 10
5. *** (((2 *3) *3) *3 = 54
6. **+ (((2 *3) *3) +2 = 20
7. *+* (((2 *3) +2) *3 = 24
8. +** (((2 +2) *3) *3 = 36
Вот только теперь можно сказать что из 2 можно получить 8 разных чисел.
PS Арифметику проверь, писал напрямую в экран, мог допустить неточность.
Program n_1;
var x:integer;
begin
readln(x);
x:=(x mod 10) + ((x div 10) mod 10) + ((x div 100) mod 10);
writeln(x);
end.
Для начала
КОИ-8 =1 символ равен 8 бит
Для таго, чтобы найти Iобьем нужно=i×n(I обьем= 1 символ чем кодируеться здесь 8 битами[i] × кол.строк × кол. символов{Символы считаются все т.е:пробел , буква , цыфра , знаки препинания и т.д})
n=кол.строк × кол. символов
Iобьем=8×57(точку в конце предложения ,я считал)=456 бит=57байт=0,05кбайт
Ответ:456 бит=57байт=0,05кбайт (В чем записать ответ в этой задаче в битах , в байтах и кбайтах, я незнаю , так что пиши на своё усмотрение;Но лутше в байтах)