Решебник к задачам по информатике: Язык программирования «Паскаль»

else writeln(a+b);

end.

♯Задача №24

Чиновник, ежемесячно берёт взятки в размере Х рублей. Величина Х непостоянная и колеблется от 0 до 150000 рублей. Автомобиль BMW 3, который хочет купить на взятки чиновник, стоит 1700000 рублей. Напишите программу, которая вычислит, сколько месяцев потребуется чиновнику на сбор нужной суммы.

Решение:

program Project1;

uses

SysUtils;

Var

x: longint; {Размер взятки}

mes: integer; {Число месяцев}

begin

mes:= 0;

x:= 0;{Организуем цикл, который завершится при сумме взяток
равной или больше 1700000}

Repeat
{Организуем случайные числа для величины Х}
randomize;

x:= x + random(150000);
writeln(x);{Организуем счётчик месяцев}
mes:= mes + 1; {inc(mes)}

until x = 1700000;
{Выводим результат на экран}

writeln('Mesjac = ', mes);

readln; {Задержка закрытия программы}
end.

♯Задача №25

В компьютер вводятся два числа. Если первое больше второго, то вычислить их сумму, иначе – произведение.

Решение:

Program Five;

Var a, b :integer;

Begin

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

ReadLn(a);

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

ReadLn(b);

if ab then

WriteLn(a+b)

Else

WriteLn(a*b);

WriteLn('Задача решена');

end.

♯Задача №26

Найти площадь квадрата, если известно, что его сторона равна а.

Решение:

Program kvadrat;

Var

S,a:integer;

begin

write(‘введите а’);

read (а);

S:=sqr(a);

Writeln(S);

End.

♯Задача №27

Найдите площадь треугольника, если известна высота h к стороне и эта сторона а.

Решение:

Program treugolnik;

Var

a,h,S:integer;

begin

write(‘введите а,h’);

read(a,h);

S:=1/2*a*h;

Writeln(S);

End.

♯Задача №28

Вычислите периметр треугольника, если известны его стороны a,b,c.

Решение:

Program perimeter;

Var

a,b,c,S:integer;

write(‘введите числа a,b,c’);

read(a,b,c);

S:=a+b+c;

Writeln(S);

End.

♯Задача №29

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

Решение:

Program sinus;

Var

Sin,a,b: integer;

Begin

Write(‘ введите a,b’);

Read(a,b);

Sin:= a/b;

Writeln(sin);

End.

♯Задача №30

Найдите длину окружности, если известен диаметр d.

Решение:

Program krug ;

Var

L,d:integer;

Begin

Write(‘введите d’);

Read(d);

L:=Pi*d;

Writeln(L);

End.

♯Задача №31

Найти количество 3-х значных чисел, сумма цифр которых=15.

Решение:

program gt;

var

a,b,c,k:integer;

begin

k:=0;

for a:=1 to 9 do

for b:=0 to 9 do

for c:=0 to 9 do

if(+b+c=15)then k:=k+1;

writeln(k);

end.

♯Задача №32

Вывести на экран три числа в порядке, обратном вводу.

Решение:

program WriteThree;

var

a, b, c: integer;

begin

readln(a, b, c);

writeln(c, ' ', b, ' ', a)

end.

♯Задача №33

Вывести на экран квадрат введенного числа.

Решение:

program SqrOfNum;

var

a: word;

begin

readln(a);

a := a * a;

writeln(a)

end.

♯Задача №34

Вывести на экран сообщение «Hello World!».

Решение:

program HelloWorld;

begin

writeln('Hello World!')

end.

♯Задача №35

Сформировать число, представляющее собой реверсную (обратную в порядке следования разрядов) запись заданного трехзначного числа. Например, для числа 341 таким будет 143.

Решение:

programReverseNum;

var

n, a, b, c: word;

begin

readln(n);

a := n mod 10;

n := n div 10;

b := n mod 10;

n := n div 10;

c := n;

n := 100 * a + 10 * b + c;

writeln(n)

end.

♯Задача №36

Найдите среднюю линию треугольника, с основанием AС=18.

Решение:

Program one;

Var

AС, x: real;

Begin

AС:=18;

x:=1/2 *AС;

writeln(x);

end.

♯Задача №37

Найдите среднюю линию трапеции с основаниями СВ=6 и AR=12.

Решение:

Program two;

Var

CB, AR, x: real;

Begin

CB:=6;

AR:=12;

x:= (CB+AR)/2

writeln(x);

end.

♯Задача №38

Найдите площадь ромба с диагоналями LK и JH. Введите числа с клавиатуры.

Решение:

Program three;

Var

S, LK, JH: real;

Begin

Write (‘введите два числа’);

Read (LK,JH);

S:= (LK*JH)/2

Writeln(S);

end.

♯Задача №39

Найдите площадь треугольника со сторонами a, b, c. Числа введите с клавиатуры.

Решение:

Program reg;

Var

S, a, c, b, p: real;

Begin

Write (‘введите три числа’);

Read (a, b, c);

p:= (a+b+c)/2;

S:= sqrt(p*(p-a)*(p-b)*(p-c));

Writeln(S);

end.

♯Задача №40

Найдите длину окружности. Радиус введите с клавиатуры.

Решение:

Program rek;

Var

L, r: real;

Begin

Write(‘введите число с клавиатуры’);

Read(r);

L:=2*Pi*r

Writeln(L);

end.

♯Задача №41

Дана сторона квадрата a. Найти его периметр.

Решение:

Program lolo;

Var a: real;

Begin

а:=5;

writeln(а);

Р:= 4*а;

Writeln(P);

End.

♯Задача №42

Дана сторона квадрата a. Найти его площадь.

Решение:

Program popi;

Var a: real;

Begin

а:=7;

writeln(а);

S:= a*а;

Writeln(S);

End.

♯Задача №43

Дана длина ребра куба a. Найти объем куба.

Решение:

Program cub;

Var a: real;

Begin

а:=5;

writeln(а);

V:= a*a*а;

Writeln(V);

End.

♯Задача №44

Даны длины ребер a, b, c прямоугольного параллелепипеда. Найти его объем.

Решение:

Program sweet;

Var a, b, с: real;

Begin

а:=5;

b:=3

c:=8

writeln(а, b, с);

V:= a*b*c;

Writeln(V);

End.

♯Задача №45

Даны длины сторон треугольника АВС. Найдите площадь треугольника S.

Решение:

Program trup;

Var A, B, C: integer;

Begin

A:=9

B:=7;

С:=13;

р:= ;

writeln (p);

S:=

Writeln(S);

End.

Часть 2

♯Задача №1

Вывести на экран три введенных с клавиатуры числа в порядке, обратном их вводу.

Решение:

program WriteThree;

var

a, b, c: integer;

begin

readln(a, b, c);

writeln(c, ' ', b, ' ', a)

end.

♯Задача №2

Дано натуральное число меньше 256. Сформировать число, представляющее собой его квадрат.

Решение:

program SqrOfNum;

var

a: word;

begin

readln(a);

a := a * a;

writeln(a)

end.

♯Задача №3

Даны два числа. Вывести на экран то из них, которое больше.

Решение:

program MaxOfTwo;

var

a, b: integer;

begin

readln(a, b);

if a b then begin

writeln(a)

end

else begin

writeln(b)

end;

end.

♯Задача №4

Даны три числа. Вывести на экран то из них, которое больше.

Решение:

program MaxOfThree;

var

a, b, c: integer;

begin

readln(a, b, c);

if a b then begin

if a c then begin

writeln(a)

end.

else begin

writeln(c);

end.

else begin

if b c then begin

writeln(b);

end.

else begin

writeln(c);

end;

end.

♯Задача №5

Даны вещественные числа a, b и c, причем a отлично от 0. Решить квадратное уравнение ax² + bx + c = 0 или сообщить о том, что действительных решений нет.

Решение:

program QuadraticEquation;

var

a, b, c, d, x1, x2: real;

beginreadln(a, b, c);

d := b * b - 4 * a * c;

if d = 0 then begin

if d 0 then begin

x1 := (-b + sqrt(d)) / 2 * a;

x2 := (-b - sqrt(d)) / 2 * a;

writeln('x1 = ', x1:4:2, ', x2 = ', x2:4:2)

end

else begin

x1 := -(b / 2 * a);

writeln('x = ', x1:4:2)

end;

end

else begin

writeln('No real solutions!');

end

end.

♯Задача №6

Даны два натуральных числа. Найти их наибольший общий делитель.

Решение:

program GreatestCommonDiv;

var

m, n: word;

begin

readln(m, n);

while m n do begin

if m n then begin

m := m - n

end

else begin

n := n - m

end

end;

writeln(m);

end.

♯Задача №7

Даны натуральные числа x и n (которое также может быть равно 0). Вычислить xⁿ.

Решение:

program Exponentiation;

var

x, n, i, res: word;

begin

readln(x, n);

res := 1;

for i := 1 to n do begin

res := res * x

end;

writeln(res)

end.

♯Задача №8

Даны натуральные числа x и n. Вычислить xⁿ, используя алгоритм быстрого возведения в степень: .

Решение:

program FastExponentiation;

var

x, n, r: word;

begin

readln(x, n);

r := 1;

while n 1 do begin

if odd(n) then r := r * x;

x := x * x;

n := n div 2

end;

writeln(x * r)

end.

♯Задача №9

Сформировать число, представляющее собой реверсную (обратную в порядке следования разрядов) запись заданного трехзначного числа. Например, для числа 341 таким будет 143.

Решение:

program ReverseNum;

var

n, a, b, c: word;

begin

readln(n);

a := n mod 10;

n := n div 10;

b := n mod 10;

n := n div 10;

c := n;

n := 100 * a + 10 * b + c;

writeln(n)

end.

♯Задача №10

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

Решение:

program PalindromeNum;

var

n: word;

a, b: byte;

begin

readln(n);

a := n mod 10;

n := n div 10;

b := n mod 10;

n := n div 10;

a := 10 * a + b;

writeln(n = a)

end.

♯Задача №11

Выведите на экран наименьшее из трех чисел.

Решение:

Program mini;

Var a, b, c: integer;

Begin

Writeln('Введите 3 числа');

Readln(a,b,c);

If (aнаименьшее из трех чисел ', a)else