130. Написать программу, вычисляющую сумму и среднее арифметическое последовательности положительных чисел, которые вводятся с

клавиатуры.

Program m32;

var

i,s,x,a:integer;

m:real;

begin

writeln('Вычисление среднего арифметического последовательности положительных чмсел.');

writeln('Вводите после стрелки числа.Для завершения ввода введите ноль.');

repeat

write('->');

readln(a);

s:=s+a;

x:=x+1;

until a=0;

x:=x-1;

writeln('Введено чисел:',' ',x);

writeln('Cумма чисел:',' ',s);

m:=s/x;

writeln('Среднее арифметическое:',' ',m:2:2);

readln;

end.

131. Написать программу, которая определяет максимальное число из введенной с клавиатуры последовательности положительных чисел.

Program m33;

var

i,max,a:integer;

begin

writeln('Определение максимального числа последовательности положительных чисел.');

writeln('Вводите после стрелки числа.Для завершения ввода введите ноль.');

max:=0;

repeat

write('->');

readln(a);

if a>max then

max:=a;

until a=0;

writeln('Максимальное число:',' ',max);

readln;

end.

132. Написать программу, которая проверяет,

является ли целое число, введенное пользователем простым.

Program m34;

var

i,d,a,r:integer;

begin

writeln('Введите целое число и нажмите Enter.');

readln(a);

d:=2;

Вход

writeln('Вычисление среднего арифметического последовательности положительных чмсел.');

writeln('Вводите после стрелки числа.Для завершения ввода введите ноль.');

write('->'); readln(a);

s:=s+a; x:=x+1;

until a=0;

x:=x-1;

writeln('Введено чисел:',' ',x);

writeln('Cумма чисел:',' ',s);

m:=s/x;

writeln('Среднее арифметическое:',' ',m:2:2);

Выход

Вход

writeln('Определение максимального числа последовательности положительных чисел.');

writeln('Вводите после стрелки числа.Для завершения ввода введите ноль.');

max:=0;

write('->'); readln(a);

if a>max

max:=a;

until a=0;

writeln('Максимальное число:',' ',max);

Выход

Вход

writeln('Введите целое число и нажмите Enter.'); readln(a);

repeat

r:=a mod d;

if r<>0 then

d:=d+1;

until r=0;

if d=a then

writeln(a,' ','-простое число')

else

writeln(a,' ','не простое число');

readln;

end.

134. Написать программу, которая "задумывает", число в диапазоне от 1 до 10 и предлагает пользователю угадать число за 5 попыток.

Program m36;

var

i,n,c,a,n1:integer;

begin

writeln('Игра "Угадай Число".');

writeln('Компютер задумал число от 1 до 10.');

writeln('Угадай его за 5 попыток.');

writeln('Введите число и нажмите Enter');

r

writeln('Игра "Угадай Число".');

writeln('Компютер задумал число от 1 до 10.');

writeln('Угадай его за 5 попыток.');

writeln('Введите число и нажмите Enter');

randomize;

andomize;

n1:=5;

c:=random(9)+1;

repeat

n:=n+1;

write('->');

readln(a);

until (n=n1) or (c=a);

if c = a then

writeln('Вы выиграли',pi)

else

writeln('Вы проиграли! Компютер задумал число',' ',c);

readln;

end.

d:=2;

if r<>0

d:=d+1;

until a=0;

if r<>0

writeln(a,' ','-простое число')

writeln(a,' ','- не простое число')

Выход

Вход

n1:=5;

c:=random(9)+1;

n:=n+1;

write('->');

readln(a);

until (n=n1) or (c=a);

if c = a then

writeln('Вы проиграли! Компютер задумал число',' ',c);

Выход