//PascalABC.NET 3.1 сборка 1200
const
n = 1000;
begin
var primes := new List<integer>();
for var i := 2 to n do
begin
var f := true;
foreach var prime in primes do
if i mod prime = 0 then begin
f := false;
break;
end;
if f then primes.Add(i);
end;
foreach var prime in primes do
write(prime, ' ');
writeln;
writeln('Время вычисления: ', Milliseconds / 1000);
end.
1 текст:
(Буква) (Десятичный код) (код)
С 243 11110011
у 213 11010101
а 193 11000001
206 11001110
( - ) 45 00101101
208 11010000
а 193 11000001
206 11001110
______________________________________________
2 текст: (Англ.яз)
(Буква) (Десятичный код) (Двоичный код)
I 73 01001001
B 66 01000010
M 77 01001101
______________________________________________
Примечания: Ответы даны на ПОКАЗАННЫЕ Вами буквы и знаки.
( - ) - обозначение дефиса.
Английские буквы не кодируются в КОИ-8, используют (не беспокойтесь, это совершенно правильный подход).
Program n1;
var a: array[1..10] of integer;
i: integer;
begin
for i:=1 to 10 do readln(a[i]);
for i:=1 to 10 do if a[i] mod 2=0 then write(a[i],' ');
end.
const n=10;
var a:array [1..n] of integer;
i,k:integer;
begin
for i:=1 to n do
begin
a[i]:=random (10);
if a[i] mod 2 = 0 then k:=k+1;
write (a[i],' ')
end;
writeln;
writeln (k)
end.
15 х 5 = 75(км)
Ответ: 75км проедет велосипедист за 5 часов.