Задача №7. Дана масса в килограммах. Найти число полных центнеров в ней.

Линейные

Задача №1. Дана сторона квадрата a. Найдите его периметр P=4*a

Program kvadrat;

Uses crt;

Var a,P :integer;

Begin

Clrscr;

Writeln(‘введите cторону квадрата а’); readln(a);

Задача №2. Дана сторона квадрата a. Найти его площадь S=a²

Program kvadrat2;

Uses crt;

Var a,S :integer;

Begin

Clrscr;

Writeln(‘введите cторону квадрата а’); readln(a);

Задача №3. Даны стороны прямоугольникaиb. Найти его площадьS=a*bи периметрP= 2*(a+b).

Program ploshad;

Uses crt;

Var a,b,P,S :real;

Begin

Clrscr;

Writeln(‘введите сторону прямоугольника а’); readln(a);

Writeln(‘введите сторону прямоугольника b’); readln(b);

S:=a*b;

Задача №4. Дан диаметр окружностиd. Найти ее длинуL=?*d. В качестве значения?использовать 3.14.

Решение.

Program dlina;

Uses crt;

Var L,d :real;

const pi=3.14;

Begin

Clrscr;

Writeln(‘введите диаметр окружности’); readln(d);

.................................

Задача №5. Дана длина ребра кубаa. Найти объем кубаV=a³и площадь его поверхностиS= 6a².

Решение.

Program ploshad;

Uses crt;

Var a,v,s :real;

Begin

Clrscr;

Writeln('введите ребро'); readln(a);

V:=sqr(a)*a;

Задача №6. Дано расстояние в сантиметрах. Найти число полных метров в нем.

Решение.

Program prim_6;
Var a,b:integer;
Begin
Write('введите расстояние в сантиметрах');
Readln(a);
...........

Задача №7. Дана масса в килограммах. Найти число полных центнеров в ней.

Решение.

Program prim_7;
Var a,b:integer;
Begin
Write('введите массу в килограммах');
Readln(a);
b:=a div 100;

....................

Задача №8. Найти площадь кольца по заданным внешнему и внутреннему радиусам.

Решение.

Program prim_8;
Var r1,r2,s:real;
Begin
Write('введите радиус кольца r1 ');
Readln(r1);

Write('введите радиус кольца r2 ');
Readln(r2);
.................

Задача №9. Ввести двузначное число a. Поменять цифры числа местами.

Решение.

Program prim_9;

Var a,b,c:integer;

Begin

Write('введите число а ');

Readln(a);

b:= a div 10;

c:=a mod 10;