<span>uses crt;
procedure Prost(a:longint;var f:boolean);
var i:longint;
begin
if a<3 then f:=false
else
begin
f:=true;
for i:=2 to round(sqrt(a)) do
if a mod i=0 then f:=false;
end;
end;
var a,b,i,k:longint;
f:boolean;
begin
clrscr;
repeat
writeln('Введите диапазон натуральных чисел a<b:');
readln(a,b);
until (a>=0)and(b>a);
k:=0;
for i:=a to b do
begin
Prost(i,f);
if f then
begin
write(i,' ');
k:=1;
end;
end;
if k=0 then writeln('Простых чисел в интервале ',a,' ',b,' нет!');
readln
end.</span>
<u>PascalABC.NET 3.4.0, сборка 1672 от 10.06.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var n:=ReadInteger('n=');
var a:array of real;
a:=SeqRandom(n,-99,99).Select(t->real(t)).ToArray; a.Println; Writeln;
a.Where(t->Trunc(t) mod 3 <>0).Println
end.
Еслия правильно понял, то:
Входы для информации:
- гнезда (разъёмы для перефирии)
- CD-DVD-привод
- Дискетки
- Сканирование через принтер
- Ввод с клавиатуры, клик мышкой на опр. знаках
- запись с микрофона
- из интернета
(ещё возможно: вход из спящего режима, вход в систему после включения компьютера (в этом случае информация загружается в оперативную память для запуска Windows))
Выходы:
- Гнёзда для перефирии
- печать
- в интернет
- монитор
и т.д.
1) 10010010(2)<span> = </span><span>146(10)
</span>2) 10011111(2)<span> = </span><span>159(10)
</span>3) 10111010(2)<span> = </span><span>186(10)
4) </span>101111111(2)<span> = </span><span>383 (10)</span>
<span>Понятие множества, подобно понятиям точки, числа и т.д., не сводится к другим понятиям математики и не определяется. Вместо определения этого понятия приведем примеры. Можно говорить о множестве всех учеников данной школы, о множестве всех людей на Земле, о множестве всех клеток человеческого тела, о множестве всех картофелин на картофельном поле, о множестве всех треугольников на плоскости, множестве целых числе, множестве всех точек данного квадрата и т.д.</span>