Question

Решить три задачи в Паскале. 1. Дано 3 числа a,b,c. Найти их полусумму, полупроизведение, разность между 1 и вторым, 1 и третьим числами. 2. Дан кубик со стороной а. Найти площадь всех его граней. 3. Все учащиеся 6 класса занимаются или в секции тенниса, или в секции плавания. Некоторые из них занимаются и теннисом, и плаванием: 1/a теннисистов занимаются плаванием, а 1/b пловцов - теннисом. Кого в классе больше теннисистов или пловцов?

Answer 1

Ответ:

program n1;

var a, b, c:integer;

begin

readln(a, b, c);

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

writeln(a*b*c/2);

writeln(a-b);

writeln(a-c);

end.

program n2;

var a, b:integer;

begin

readln(a);

b:=6*sqr(a);

writeln(b);

end.

program n3;

var a, b:integer;

begin

readln(a, b);

if 1/a<1/b then

writeln('Теннисистов')

else writeln('Пловцов');

end.

Answer 2

Давайте решим каждую из задач поочередно на языке программирования Паскаль. 1. Задача о числах a, b и c: ```pascal program Task1; var a, b, c: real; halfSum, halfProduct, diff1_2, diff1_3: real; begin writeln('Введите значения a, b и c:'); readln(a, b, c); halfSum := (a + b + c) / 2; halfProduct := (a * b * c) / 2; diff1_2 := abs(a - b); diff1_3 := abs(a - c); writeln('Полусумма: ', halfSum); writeln('Полупроизведение: ', halfProduct); writeln('Разность между 1 и 2 числами: ', diff1_2); writeln('Разность между 1 и 3 числами: ', diff1_3); end. ``` 2. Задача о кубе со стороной "a": ```pascal program Task2; var a: real; surfaceArea: real; begin writeln('Введите длину стороны куба (a):'); readln(a); surfaceArea := 6 * a * a; writeln('Площадь всех граней куба: ', surfaceArea); end. ``` 3. Задача о количестве теннисистов и пловцов: ```pascal program Task3; var a, b: integer; begin writeln('Введите количество теннисистов (a) и пловцов (b):'); readln(a, b); if a > b then writeln('В классе больше теннисистов') else if b > a then writeln('В классе больше пловцов') else writeln('В классе равное количество теннисистов и пловцов'); end. ``` Эти программы решают каждую из задач и выводят результат на экран. Вы можете ввести необходимые значения и выполнить программы, чтобы получить ответы.