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