2.09.1969 — один из «дней рождения Интернета». В лаборатории Калифорнийского университета состоялась первая успешная передача данных между соседними компьютерами.
Обычно именно эта дата имеется ввиду
INPUT "n="; n
DIM a(n) AS INTEGER
RESTORE
FOR i = 1 TO n
READ a(i)
NEXT i
FOR i = 1 TO n - 1
mi = a(i): u = i
FOR j = i TO n
IF a(j) < mi THEN
mi = a(j): u = j
END IF
NEXT j
r = a(i): a(i) = mi: a(u) = r
<span>NEXT i
</span>FOR i = 1 TO n
PRINT a(i);
NEXT i
END
DATA 12,-3,34,2,76,0,-45,23,12,0,23,6
var
x, count:integer;
begin
write('x = '); readln(x);
write('Количество троек в числе ', x, ' - ');
while x > 0 do
begin
if x mod 10 = 3 then
count := count + 1;
x := x div 10;
end;
writeln(count);
end.
Редактор какой нибудь газеты, бухгалтер, модератор, диспетчеры.