Дано простое число. Найти следующее за ним простое число.

-Нужно предусмотреть соответствие вводимого числа типу integer и положительному значению

- если число не является простым программа должна вывести сообщение "Это не простое число. Повторите попытку"

Программа Паскаль

пусть [a,b] - область и a< =b

var

a,b,x: real;

begin

readln(a,b,x);

if (a< =x) and (x< =b) then

writeln('принадлежит')

else

writeln('не принадлежит');

end.

для pascal abc

uses graphabc; begin window.title : = 'apple'; var y,y0,x,t: integer; brush.color : = clgreen; y0: =70; x: =70; lockdrawing; for t : = 0 to 8 do begin y: =y0+5*t*t; window.clear(clwhite); circle(x,y,50); redraw; sleep(100); end; end.

дано:

g= 44,1 кгц= 44100 гц

i= 16 бит

t=2 мин=120 сек

v-?

решение:

v=g*i*t

v= 44100гц*16 бит*120 сек= 8467200 бит

v= 8467200/8*1024*1024= 10 мбайт

а) наличие электромагнитного излучения, сrt  б) ухудшение качества изображения при изменении угла обзора, crt в) компактные размеры lcd  г) достаточно сильное ухудшение качества изображения при изменении рекомендуемой производителем разрешающей способности crt  д) формирование изображения с лучей электронных пушек, crt е) меньший вред для здоровья человека при работе. lcd