№1
var
a,b,v:real;
begin
readln(a,b);
v:=4/3*Pi*sqr(b/2)*(b/2);
a:=sqr(a)*a;
v:=a-v;
writeln(v:7:4);
end.
№2
var
s:string[6];
begin
readln(s);
if ((strtoint(s[1])+strtoint(s[2])+strtoint(s[3]))=
(strtoint(s[4])+strtoint(s[5])+strtoint(s[6]))) then
writeln('Является') else
writeln('Не является');
end.
№3
var
a,b:integer;
begin
readln(a,b);
if (a<90) and (b<90) and (180-a-b<90) then
writeln('Остроугольный') else
if (a=90) or (b=90) or (180-a-b=90) then
writeln('Прямоугольный') else
writeln('Тупоугольный');
end.
Язык C++.
#include <iostream>
#include <cmath>
const double pi = 3.1415;
using namespace std;
int main() {
double r;
cout << "Введите радиус: " << endl;
cin >> r;
cout << "Длина окружности = " << 2*pi*r << endl << "Площадь = " << pi*pow(r,2) << endl;
}
// PascalABC.NET 3.1, сборка 1218 от 12.04.2016
const
n=10;
type
Sot=record
fam:string;
zp:integer;
end;
begin
var Sotr:=new Sot[n];
Writeln('Вводите фамилию и через пробел зарплату');
for var i:=0 to n-1 do begin
var s:=ReadlnString(i+1+':');
var ms:=s.Split;
(Sotr[i].fam,Sotr[i].zp):=(ms[0],StrToInt(ms[1]));
end;
var r:=Sotr.OrderBy(x->x.zp).First;
WritelnFormat('{0} получает всего лишь {1}',r.fam,r.zp)
end.
<u><em>Тестовое решение:</em></u>
Вводите фамилию и через пробел зарплату
1: Иванов 32000
2: Петров 28000
3: Козлов 34000
4: Сидорова 41400
5: Пупкин 30000
6: Кузьмина 36000
7: Васечкин 29700
8: Бененсон 32500
9: Паутова 41000
10: Ромашкин 36400
Петров получает всего лишь 28000
Var i,k : integer;
a: array[1..10] of integer;
Begin
for i := 1 to 10 do begin
a[i] := random(7) + 3;
if a[i] = 4 then k:= k + 1;
end;
writeln(k);
End.