8. Визначте заробітну платню робітника, якщо йому нараховано S грн, а податок складає P%. Екран повинен мати вигляд: Введіть вхідні дані: нарахована сума (грн) –> 1500 податок (%) –> 10
1. Не указано, сколько бит приходится на один символ. Предположим, что 1 символ занимает 8 бит или один байт. v = 1200 бит/с информационная ёмкость сообщения i = 3070*8 = 24560 бит Время передачи t = i/v = 24560/1200 = 20,47 секунд 2. За 1 секунду передаётся 1200 бит или 150 символов, значит, на один символ приходится 1200/150 = 8 бит При работе модема со скоростью 2400 бит/с за 1 секунду будет передано 2400/8 = 300 символов 3. Снова не указана битность символов. Ну, опять 8 бит на символ. 9600/8 = 1200 символов/с
Var a:integer; begin readln(a); If (a<10000) and (a>=0) then If (a>999) then If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then writeln('1') else writeln('2') else If (a>99) and (a<1000) then If ((a div 100)=(a mod 10)) then writeln('1') else writeln('2') else If (a>9) and (a<100) then If ((a div 10)=(a mod 10)) then writeln('1') else writeln('2') else writeln('1') else writeln('Неправльное число'); end. Большое немного решение, может можно и поменьше, но так точно правильно
Не указано, сколько бит приходится на один символ. Предположим, что 1 символ занимает 8 бит или один байт.
v = 1200 бит/с
информационная ёмкость сообщения
i = 3070*8 = 24560 бит
Время передачи
t = i/v = 24560/1200 = 20,47 секунд
2.
За 1 секунду передаётся 1200 бит или 150 символов, значит, на один символ приходится
1200/150 = 8 бит
При работе модема со скоростью 2400 бит/с за 1 секунду будет передано 2400/8 = 300 символов
3.
Снова не указана битность символов. Ну, опять 8 бит на символ.
9600/8 = 1200 символов/с
a:integer;
begin
readln(a);
If (a<10000) and (a>=0) then
If (a>999) then
If ((a div 1000)=(a mod 10)) and ((a div 10 mod 10)=(a div 100 mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>99) and (a<1000) then
If ((a div 100)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
If (a>9) and (a<100) then
If ((a div 10)=(a mod 10)) then
writeln('1')
else
writeln('2')
else
writeln('1')
else
writeln('Неправльное число');
end.
Большое немного решение, может можно и поменьше, но так точно правильно