Задачи блока ‘Begin’ из электронного задачника Programming Taskbook, автор доцент факультета математики, механики и компьютерных наук Южного федерального университета Михаил Эдуардович Абрамян.
Решения приведены для автоматической проверки модуля “pt4” программы PascalABC.NET.
Все входные и выходные данные в заданиях этой группы являются вещественными числами.

Begin1°. Дана сторона квадрата a. Найти его периметр P = 4·a.

Решение.

// pascal

program z1;
uses pt4;
var a, p: real;
begin
     task('begin1');
     read(a);
     p:=4*a;
     write(p);
end.

# Python

# print(int(input())*4)

 

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

Решение.

// pascal

program z2;
uses pt4;
var a, s: real;
begin
     task('begin2');
     read(a);
     s := a*a;
     write(s);
end.

 

# Python

# print(int(input())**2)

 

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

Решение.

// pascal

program z3;
uses pt4;
var a, b, s, p: real;
begin
     task('begin3');
     read(a, b);
     s := a*b;
     write(s);
     p := 2*(a + b);
     write(p);
end.

# Python

a1,a2 = input().split()
a = int(a1)
b = int(a2)
print(a*b, 2*(a+b))

 

Begin4°. Дан диаметр окружности d. Найти ее длину L = π·d. В качестве значения π использовать 3.14.

Решение.

// pascal

program z4;
uses pt4;
const pi=3.14;
var d, l: real;
begin
     task('begin4');
     read(d);
     l := d*pi;
     write(l);
end.

# Python

print(int(input())*3.14)

 

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

Решение.

// pascal

program z5;
uses pt4;
var a, v, s: real;
begin
     task('begin5');
     read(a);
     v := a*a*a;
     s := 6*a*a;
     write(v);
     write(s);
end.

# Python

a = int(input())
print(a**3, 6*a*a)

 

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

Решение.

// pascal

program z6;
uses pt4;
var a, b, c, v, s: real;
begin
     task('begin6');
     read(a, b, c);
     v := a*b*c;
     s := 2*(a*b + b*c + a*c);
     write(v);
     write(s);
end.

# Python

a1, a2, a3 = input().split()
a = int(a1)
b = int(a2)
c = int(a3)
print(a*b*c, 2*(a*b + b*c + a*c))

 

Begin7°. Найти длину окружности L и площадь круга S заданного радиуса R: L = 2·π·R, S = π·R². В качестве значения π использовать 3.14.

Решение.

// pascal

program z7;
uses pt4;
const pi=3.14;
var r, l, s: real;
begin
     task('begin7');
     read(r);
     l := 2*pi*r;
     s := pi*r*r;
     write(l);
     write(s);
end.

# Python

r = int(input())
print(2*3.14*r, 3.14*r*r)

 

Begin8°. Даны два числа a и b. Найти их среднее арифметическое: (a + b)/2.

Решение.

// pascal

program z8;
uses pt4;
var a, b, s: real;
begin
     task('begin8');
     read(a, b);
     s := (a + b)/2;
     write(s);
end.

# Python

x, y = input().split()
a = int(x)
b = int(y)
print((a + b)/2)

 

Begin9°. Даны два неотрицательных числа a и b. Найти их среднее геометрическое, то есть квадратный корень из их произведения: √ab.

Решение.

// pascal

program z9;
uses pt4;
var a, b, s: real;
begin
     task('begin9');
     read(a, b);
     s := sqrt(a*b);
     write(s);
end.

# Python

x, y = input().split()
a = int(x)
b = int(y)
print((a*b)**(1/2))

 

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

Решение.

// pascal

program z10;
uses pt4;
var a, b, s, r, p, ch: real;
begin
     task('begin10');
     read(a, b);
     s := a*a + b*b;
     r := a*a - b*b;
     p := a*a*b*b;
     ch := a*a/(b*b);
     write(s);
     write(r);
     write(p);
     write(ch);
end.

# Python

x, y = input().split()
a = int(x)
b = int(y)
print(a*a + b*b, a*a - b*b, a*a*b*b, a*a/(b*b))