«Решения задач на Pascal Множества, Сортировки, Подпрограммы, Записи, Файлы В4. Разработать программу печати всех простых чисел в диапазоне от N до M»

4

1. Разработать программу печати всех простых чисел в диапазоне от N до M (значения переменных N и M задаются с клавиатуры), а также подсчитать их количество.

2. Среди четырехзначных чисел выбрать те, у которых все четыре цифры различны.

1. Составить программу для вычисления суммы факториалов всех чётных чисел от m до n.

2. Заменить данное натуральное число на число, которое получается из исходного записью его цифр в обратном порядке ( например, дано число 156, нужно получить 651). 4 1. Имеется множество, содержащее натуральные числа из некоторого диапазона . Сформировать два множества, первые из которых содержит все простые числа из данного множества, а второе – все составные.

program lab6a;

uses crt;

var s:string;

k,i:integer;

begin

clrscr;

k:=0;

writeln('Vvedite stroku');

readln(s);

for i:=1 to length(s) do begin

if (s[i]='*') or (s[i]=';') or (s[i]=':') then k:=k+1;

end;

writeln('kolichestvo simvolov (*,;,:)=',k);

readln;

end.

program lab3b;

uses crt;

var a,b,c:set of char;

i:char;

begin

clrscr;

a:=['a','b','m','p','v'];

b:=['v','b','p','m'];

c:=['a','b','p'];

Writeln('Vvedite bykvu');

readln(i);

if (i in a)and(i in b)and (i in c) then writeln('Vo vse strani')

else begin

if (not(i in a))and(not(i in b))and (not(i in c))

then writeln('Ni v odnoi strane')

else writeln('V nekotorie strani')

end;

readln;

end.

1. Зуев Е.А. Язык программирования Турбо- Паскаль 6.0. – М., Унитех, 1992.

2. Немнюгин С.А. Турбо- Паскаль. – СПб.: Питер, 2000.

3. Федоренко Ю. Алгоритмы и программы на Turbo Pascal. Учебный курс.- СПб: Питер, 2001.

4. Семакин И. Г., Шестаков А. П. Основы программирования. – М.; Мастерство, 2002.

5. Могилев А.В. и др. Информатика: учебное пособие для ВУЗов. – М.; Изд. Центр «Академия», 2002.