// PascalABC.NET 3.1, сборка 1256 от 21.06.2016 function IsPrime(n:integer):boolean; begin if n<4 then Result:=True else begin var found:= (n mod 2 = 0); var p:=3; while (not found) and (sqr(p)<=n) do begin found:=(n mod p = 0); p+=2 end; Result:=not found end end;
begin Range(100,999).Where(n->IsPrime(n)).Println(',') end.
Сл.1:. тема: усройство вводаинформации сл. 2 Устройства ввода информации – это устройства, которые переводят информацию с языка человека на машинный язык. К устройствам ввода информации относятся следующие устройства: 1. Клавиатура; 2. Сканер; 3. Цифровые фотокамеры; 4. Средство речевого ввода (микрофон); 5. Координатные устройства ввода ( мышь, трекбол ); 6.Сенсорные устройства ввода (световое перо, сенсорный экран, дигитайзер). Устройства ввода информации. сл. 3: Клавиатура – это клавишное устройство для ввода числовой и текстовой информации, а так же подачи управляющих сигналов, которое содержит стандартный набор клавиш пишущей машинки и некоторые дополнительные клавиши – управляющие и функциональные клавиши, клавиши управления курсором и малую цифровую клавиатуру. Клавиатура. сл.4: Мыши, трекболы и дигитайзеры являются ручными манипуляторами и обычно подключаются к последовательному порту ПК. При перемещении манипулятора по столу (или планшету) синхронно с ним по экрану монитора перемещается курсор. Почти все манипуляторы имеют кнопки, используемые для фиксации конкретной позиции экрана. Эти устройства подразделяются на две категории – относительные и абсолютные. Относительными являются, например, мышь, трекбол, джойстик, точпад; абсолютным – дигитайзер. Манипуляторы связываются с ПК посредством соответствующих драйверов. Манипуляторы – мыши, трекболы. сл. 5: Одним из традиционных устройств ввода является манипулятор мышь, в ранних советских ЭВМ фигурировавшая под названием «колобок». Это устройство было изобретено достаточно давно – ещё в 1970-х гг. Мышь сл. 6: Виды мыши:
3.Оптическая мышь. Внутри корпуса находятся 2 пары светодиодов и фотоэлементов. Один светодиод обычно излучает красный свет, а другой инфракрасный. 4.«Бесхвостые» (инфракрасные) мыши для передачи сигналов используют приёмник инфракрасного излучения, который кабелем присоединяется к ПК и располагается или на ПК, или устанавливается где-то рядом. сл. 7: спасибо за внимание.
Var a,b,c,min:integer; begin write('Введите a: '); readln(a); min:=a; write('Введите b: '); readln(b); if b<min then min:=b; write('Введите c: '); readln(c); if c<min then min:=c; writeln('Наименьшее: ',min); <span>end.
Для VBA Sub Z() Dim a As Integer Dim b As Integer Dim c As Integer Dim min As Integer </span>a = InputBox("Введите A: ")<span> min = a b = InputBox("</span>Введите <span>B: ") If b < min Then min = b c = InputBox("</span>Введите <span>C: ") If c < min Then min = c MsgBox ("Наименьшее: " & min) End Sub
Для наибольшего </span>Sub Z() Dim a As Integer Dim b As Integer Dim c As Integer Dim max As Integer a = InputBox("Введите A: ") max= a b = InputBox("Введите B: ") If b > max Then max = b c = InputBox("Введите C: ") If c > max Then max = c MsgBox ("Наибольшее: " & max ) End Sub