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.