Var
a,b,d,K,kp:integer;
P:boolean;
Begin
kp:=0;
ReadLn(a,b);
if (a = 1)or(a = 2) then
Begin
kp:=2;
Write(2,' ',3)
end
else if a = 3 then
Begin
kp:=1;
Write(3);
End;
if a < 5 then a:=5
else if a mod 2 = 0 then a:=a+1;
While a<=b do
Begin
K:=Trunc(Sqrt(A));
d:=3;
P:=true;
While d <= K do
Begin
if A mod d = 0 then P:=false;
d:=d+2
End;
if P then
Begin
kp:=kp+1;
Write(' ',a);
End;
a:=a+2
End;
if kp = 0 then Write(0)
End.
1) <span> Форма цилиндра С открытым верхом</span>
2) Форма прямоугольника
3) Назначение ─ игрушки
4) Материал ─ дерево
Электронные калькуляторы – обработка числовой информации- Текстовые редакторы – программы для создания текстовых документов - Word (Microsoft)- Электронные таблицы – программы для хранения данных в табличной форме и работы с этими данными – вычислений, создания диаграмм, красиво оформленных отчетов и тд. Самая известная электронная таблица – Excel (Microsoft)- Графические редакторы - для создания и обработки графических изображений (Paint)- Программы разработки презентаций – содержат текст, изображения, анимацию и звук. например- Power Point (Microsoft- Звуковые редакторы – обработка звука- Мультимедиа проигрыватели – звук, анимация, видео- Системы управления базами данных (СУБД) – для хранения очень больших объемов данных, имеющих сложную структуру связей и ссылок. Примером СУБД – является Access (Microsoft)- Интегрированные пользовательские системы – включают в себя несколько прикладных программ разного назначения. Пригодны для всех этапов серьезной деятельности. Наиболее распространенные в мире интегрированные системы – Office и Works (Microsoft)- Коммуникационные программы – обмен информации между компьютерами: для работы с электронной почтой, общения в Интернете.- Компьютерные игры – логические, стратегические или имитаторы-тренажеры- Обучающие программы – электронные учебники, репетиторы, тесты<span>- <u>Архиваторы</u> - программы, которые используют для уменьшения объёма файла. Степень сжатия зависит от типа файла и программы-архиватора. Для обращения к сжатому файлу, его необходимо распаковать</span>
1/8*1024*8=1024 бит
1536/8/1024=0,1875 КБайт
<span>Program m21;
var i:integer;
begin i:=-10;
while i<=20 do
begin write (i,' ');
i:=i+5;
end;
end.
</span>