Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
программа на паскале:
program xxx; var a, b: real; begin writeln('введите количество миль'); readln(a); b: = a*1.6; writeln('кол-во киллометров - ',b)end.
2^i=64, i=6 бит
для кодирования 1 символа нужно 6 бит
8775 * 8 = 70200 бит занимает сообщение
70200 : 6 = 11700 символов в сообщении
найдем х - количество символов в строке
6 * 30 * х = 11700
180х = 11700
х = 65
ответ. в строке 65 символов.
program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- число не простое') else writeln (k, '- число простое');
readln
end.
var
a,b,c: real;
readln(a,b,c);
writeln((a+b+c)/3);
Популярные вопросы