program find_primesl
var
i,j : integer;
d : boolean;
begin
writeln (Программа поиска простых чисел);
for i:=4 to 105 do
begin
d:=true;
for j:=2 to trunc(sqrt(i)) do
d:=d and ((i mod j) <> 0);
if (d) then
writeln (Число,i,простое);
end;
writeln (Поиск закончен, нажмите Enter);
readln;
end.
Эта программа находит все простые числа от 4 до 105. просто е число – это число, которое не имеет целого делителя.
После служебного слова var объявляются глобальные переменные, которые будут использоваться в данной программе. i и j мы задаем как переменные с целыми числами, b – как логическая переменная.
В операторных скобках begin ... end. находится само тело программы.
Используя процедуру writeln на экран выводится сообщение о начале работы программы. Первый оператор цикла for производит перебор чисел от 4 до 105. Второй оператор цикла for производит перебор возможных делителей для настоящего числа i. Далее проверяется, является ли число j делителем i. Если в процессе выполнения второго оператора for не обнаруживается делителей числа, то на экран выводится надпись, что данное число простое. В конце программы на экран выводится сообщение, что процесс перебора окончен и выполнение программы тоже завершено.
Задача моего варианта:
program lab2;
var
a,b,c,k : integer;
begin
writeln (Введите множители произведения);
readln (a,b);
k:=o;
c:=0;
while k <> b do
begin
k:=k+1;
c:=c+a;
end;
writeln (Произведение равно,c);
readln;
end.
Служебные слова, использовавшиеся в программе:
begin ... end; - операторные скобки. В них вписывается тело какого-либо оператора (цикл, сравнение)
while k <> b do – задается условие цикла
При отладке я следил за переменными k и c т.к. они в процессе выполнения программы изменяются.
В результате тестирования программа выдавала мне правильные результаты.
Видеорегистратор оснащен 2,5-3,5" поворотным экраном, имеет камеру, записывающую с разрешением 1920*1080. Некоторые модели имеют фунцию ночной съемки. Записанное видео всегда можно посмотреть на экране с портами HDMI и AV. На сайте Magazilla можно выбрать видеорегистраторы DOD, телефоны, планшеты, фотоаппараты, приборы для кухни и многое другое.