<span>
program PrimesToN;
var
i, k, n, count: word;
begin
readln(n);
for k := 1 to n do begin
count := 0;
for i := 1 to k do begin
if k mod i = 0 then inc(count)
end;
if count = 2 then write(k, ' ')
end
end.
</span>
1. Скорость передачи данных.
2. Надёжность (передача данных без искажений).
3. Стоимость.
4. Резервы развития.
134 =128+4+2= 2^7+2^2+2^1 = 1000 0110 (в 2с/с)
0 | 5 *2
1 | 0 -----> 0,5 (10) = 0,1 (в 2с/с)
---------------------------------------------------------------------
134,5 = 1000 0110, 1000 (в 2c/c) ( в 16с/с - по таблице)
8 6 , 8 (в 16 с/с)
----------------------------------------------------------
Ответ: 134,5 = 10000110 (2сс) =86,8 (16сс)
// PascalABC.NET 3.0, сборка 1073
var
a,b,c:integer;
begin
Write('Введи a,b,c: '); Read(a,b,c);
if (a=b) or (a=c) or (b=c) then Writeln('Есть пара одинаковых')
else Writeln('Все числа различные')
end.
<em><u>Тестовое решение:</u></em>
Введи a,b,c: 6 3 -12
Все числа различные
Введи a,b,c: 5 -4 5
Есть пара одинаковых
// PascalABC.NET 3.0, сборка 1073
var
n:string;
a,b:char;
begin
Write('Введи натуральное число n: '); Readln(n);
Write('Введи подряд пару разыскиваемых цифр: '); Read(a,b);
if Pos(a,n)>0 then Writeln('В числе есть цифра '+a)
else Writeln('В числе цифры '+a+' нет');
if Pos(b,n)>0 then Writeln('В числе есть цифра '+b)
else Writeln('В числе цифры '+b+' нет')
end.
<u><em>Тестовое решение:</em></u>
Введи натуральное число n: 3141592653589793
Введи подряд пару разыскиваемых цифр: 47
В числе есть цифра 4
В числе есть цифра 7
// PascalABC.NET 3.0, сборка 1073
var
i,n:integer;
fiba,fibb,fib:longint;
begin
Write('Введи натуральное число (1-46): '); Read(n);
if n<3 then Writeln('Число Фибоначчи равно 1')
else begin
fiba:=1; fibb:=fiba;
for i:=3 to n do begin
fib:=fiba+fibb;
fiba:=fibb; fibb:=fib
end;
Writeln('Число Фибоначчи равно ',fib)
end
end.
<u><em>Тестовое решение:</em></u>
Введи натуральное число (1-46): 13
Число Фибоначчи равно 233
100Mbit/c * 30 c = 3000 Mbit/c = 375 Mbyte/c