Составить программу подсчета суммы S первых 1000 членов гармонического ряда 1+1/2+1/3+1/4+...1/N. Округлить результат до двух знаков после запятой.

Program Summa;

Var   S:real;

 N:integer; 

Begin   S:=0;

N:=0;  

 repeat     N:=n+1;    

 S:=s+1/n   Until n>1000;  

 Writeln(s:0:2);

 End.

   

       Мой богатый дядюшка подарил мне один доллар в мой первый день рождения. В каждый день рождения он удваивал свой подарок и прибавлял к нему столько долларов, сколько лет мне исполнилось. Написать программу, указывающую, к какому дню рождения подарок превысит 100$.

program c1;

var dr,pod:

integer;

begin pod:=1;

dr:=1; while pod<=100 do begin pod:=(pod*2)+dr;

 dr:=dr+1;

end;

 write('Возраст= ',dr);

end. 

Вычислить сумму ряда S = 1+1.5+2+2.5+3+3.5+…+ 30.

program c2;

var sum:real;

n:real;

BEGIN sum:=0;

n:=1;

while n < =30 do begin sum:=sum+n;

n:=n+0.5;

end;

 writeln('Сумма равна: ',sum);

END.

Напечатать столбиком все целые числа от а до b (значения а и b вводятся с клавиатуры).

Program C7; 

var a,b,i:integer; 

begin

 readln(a,b); 

for i:=a to b do writeln(i) 

end.

 Напечатать столбиком все целые числа от 20 до 35 и вычислить корни этих чисел.
Program C6; 
var  i: integer; 
begin
 for I:=20 to 35 do writeln(I,' ',sqrt(i):0:1);
 end

 Напечатать ряд из повторяющихся чисел 20 в виде:

 20 20 20 20 20 20 20 20 20 20

Program C2;

var  i: integer;

begin

 for i:=1 to 10 do write(20,' ')

end. 

7. Ввести двухзначное число. Если сумма цифр числа четная, то увеличить число на 2 ,в противном случае уменьшить на 2.
 Program vet7; 
Var a,b,d,s:integer; 
Begin
 writeln ('Введите значение переменной a'); 
Readln (a); 
b:= a div 10;  d:= a mod 10; 
 S:= b+d;
 If s mod 2=0 then a:=a+2 else a:=a-2; 
Writeln ('Переменная d = ',d);
 End.  

8. Составить программу, которая по трем введенным вами числами определит, могут ли эти числа быть длинами сторон треугольника
Program vet8; 
Var a,b,с:integer; 
Begin 
writeln ('Введите значение переменных a, b и с'); 
Readln (a,b,c); 
If a>=b+c then Writeln (‘Нет’) 
Else if b>=a+с  then Writeln (‘Нет’) 
Else if c>=a+b  then Writeln (‘Нет’)
 Else Writeln (‘Да’); 
End.

5. Ввести число. Если оно больше 10, разделить его на 2, если меньше или равно 10, то умножить на 5.

Program vet5;

Var a:real;

Begin

writeln ('Введите значение переменной a');

Readln (a);

 If a<=10 then a:=a*5 else a:=a/2;

Writeln ('Переменная a = ',a);

End.

 6. Ввести два числа. Если их сумма больше 100, то сумму уменьшить в 2 раза, в противном случае увеличить в 2 раза.

Program vet6;

Var a,b:integer;

S:real;

 Begin

writeln ('Введите значение переменных a и b');

Readln (a,b);

S:=a+b;

 If S>100 then S:=S/2 else S:=S*2;

Writeln (('Переменная S = ',S); 

End.  

 Ввести два числа. Если сумма этих чисел четная, найти произведение, в противном случае, найти частное этих чисел.
  Program vet3; 
Var a,b:integer;
 d:real; 
Begin 
writeln ('Введите значение переменных a и b'); 
Readln (a,b); d:=a+b; If d mod 2=0 then d:=a*b else d:=a/b;
 Writeln ('Переменная d = ',d); 
End. 




 Ввести два числа. Вычесть из большего меньшее.
 Program vet4; 
Var a,b,d:integer; 
Begin
 writeln ('Введите значение переменных a и b');
 Readln (a,b);
 If a>b then d:=a-b else d:=b-a; 
Writeln ('Переменная d = ',d); 
End.

Задачи на разветвящиеся алгоритмы

  Ввести число. Если оно неотрицательно, вычесть из него 10, в противном случае прибавить к нему 10.

Program vet1;

Var a:integer;

Begin

 writeln ('Введите значение переменной a');

Readln (a);

If a>0 then a:=a-10 else a:=a+10;

Writeln ('Переменная a = ',a);

 End.

Ввести два числа. Если их произведение отрицательно, умножить его на -2 и вывести на экран, в противном случае увеличить его в 3 раза и вывести на экран.

 Program vet2;

Var a,b,d:integer; 

Begin

writeln ('Введите значение переменных a и b');

Readln (a,b);

 d:=a*b;

 If d<0 then d:=d*(-2) else d:=d*3;

Writeln ('Переменная d = ',d);

End.

Найти длину окружности p заданного радиуса r.  P=2πR

 Program Okr;

 Var p, r : real;

Begin

WriteLn ('Введите радиус');

ReadLn (r);

p:=2*3.14*r;

 Write ('Длинна окружности = ', p);

 ReadLn

End.

  Найти произведение значений двух переменных и вывести результат на экран.

Program Myl_l ;

Var a, b, r : Integer;

 Begin

WriteLn ('Введите два числа через пробел');

ReadLn (a, b);

r:=a*b;

WriteLn ('Их произведение равно ', r);

 WriteLn ('Нажмите <Enter>');

End. 

Даны два числа a, b, с. Найти их среднее арифметическое

program srednee arefmetichescoe;

 var a,b,c,d: integer;

 begin 

a:=8;

 b:=3;

 c:=5; 

writeln ((a+b+c)/3);

 end.

2.Найти значение переменных m и n по формуле, и получить общий ответ отношения m и n.       

       

  

 program formula;

var a,b,c,d,m,n: integer;

 begin

a:=9;

b:=3;

c:=5;

 d:=2;

m:=a+(b*c-d);

n:=d-a*2;

write (m);

write (n);

write (m/n);

end.

Задачи на линейные алгоритмы

1. Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем V = abc и площадь поверхности S = 2(ab + bc + ac).


program parallelipiped;
 var a,b,c: integer;
 var  V,S: real; 
 begin 
 a:=6;
 b:=3;
 c:=9; 
 V:=a*b*c;
 S:=2*(a*b+b*c+a*c);
 writeln (V); 
 writeln (S);

 end