Whilex>0 do

Var

a,b,c: real;

Begin

//Считывание значений

writeln('Введи 3 вещественных числа:');

readln(a,b,c);

//Сравнение значений попарно

if (frac(a)>frac(b)) and (frac(a)>frac(c))

then writeln(a:4:3)

else if (frac(b)>frac(a)) and (frac(b)>frac(c))

then writeln(b:4:3)

else if (frac(c)>frac(a)) and (frac(c)>frac(b))

then writeln(c:4:3);

//Пауза

readkey;

end.

3. Ввести целое положительное четырехзначное число. Вычислить сумму первой и второй цифр и произведение третьей и четвертой. Если сумма больше произведения, то логической переменной ℓ присвоить значение true, иначе – false.

program t3;

uses crt;

Var

n,sum,prod: word; //число, сумма, произведение

b1,b2,b3,b4: byte; //разряды числа

l: boolean; //логическая переменная

Begin

//Считывание числа

writeln('Введи 4-значное положительное число:');

readln(n);

//Если число 4-значное и положительное

If(n>1000) and(n<9999) then

Begin

//Извлечение разрядов

b1:=n div 1000;

b2:=n mod 1000 div 100;

b3:=n mod 100 div 10;

b4:=n mod 10;

//Вычисление суммы и произведения разрядов

sum:=b1+b2;

prod:=b3*b4;

//Сравнение суммы и произведения, определение логической переменной

if sum>prod

then l:=true

else l:=false;

//Вывод логической переменной

writeln(l);

End

//Если число не 4-значное или отрицательное

else writeln('Nevernoe chislo!');

//Пауза

readkey;

end.

4. Ввести натуральное число n. Вычислить

program t4;

uses crt;

Var

n,i: byte; //число, переменная цикла

sum: real; //сумма

Begin

//Считывание числа

write('n=');

readln(n);

//Аннулирование суммы

sum:=0;

//Циклическое наращивание суммы

for i:=1 to n do

sum:=sum+((i+1)/i);

//Вывод значения

writeln('sum=',sum:4:3);

//Пауза

readln;

end.

5. Найти наименьшее натуральное число x, удовлетворяющее условию , или вывести сообщение, что такого числа нет.

program t5;

uses crt;

Var

x,min_x: integer; //текущее и минимальное значение X

Begin

//Инициализация переменных

x:=10000;

min_x:=0;

//Циклическое вычисление выражения

whilex>0 do

Begin

//Если выражение равно 10 - определить минимальное значение X

if exp(4*ln(x))-exp(3*ln(x))-x=10

then min_x:=x;

//Уменьшить значение X

dec(x);

end;

//Если минимальный X определен - вывести его, иначе - сказать, что чисел нет

if min_x<>0

then writeln(min_x)

else writeln('Net podhodyashego chisla');

//Пауза

readkey;

end.

6. Ввести одномерный массив из n элементов. Вычислить среднее геометрическое значение положительных элементов, кратных второму элементу массива.

program t6;

uses crt;

Var

a: array [1..100] of integer; //массив

i,n: byte; //переменная цикла, длина массива

avg: real; //значение среднего геометрического

Begin

//Считывание переменной

write('n=');

readln(n);

//Ввод массива

for i:=1 to n do

Begin

write('a[',i,']=');

readln(a[i]);

end;

//Аннулирование среднего значения

avg:=1;

for i:=1 to n do

Begin

//Если текущий элемент массива положительный и делится на второй элемент - включить его в среднее

if (a[i]>0) and (a[i] mod a[2]=0)

then avg:=avg*a[i];

end;

//Вычисление среднего значения

avg:=exp(1/n*ln(avg));

//Вывод среднего

writeln(avg:4:2);

//Пауза

readkey;

end.

7. Ввести вещественную матрицу размером m*n. Вывести индексы тех строк, в которых есть хотя бы одно значение, дробная часть которого меньше 0.55, или сообщение об отсутствии в матрице таких значений.

program t7;

uses crt;

Var

m,n,i,j: byte; //измерения массива, переменные циклов

f: boolean; //индикатор наличия подходящих чисел

a: array [1..100,1..100] of real; //двумерный массив

Begin

//Считывание значений

write('m=');

readln(m);

write('n=');

readln(n);

//Ввод массива

for i:=1 to m do

for j:=1 to n do

Begin

write('a[',i,',',j,']=');

readln(a[i,j]);

end;

//Поиск подходящих значений

f:=false;

for i:=1 to m do

//Сброс индикатора

for j:=1 to n do

//Если дробная часть числа меньше 0.55 -

Дата добавления: 2015-08-03