Var
t,d,S:real;
begin
write('Введите значение t=');read(t);
write('Введите значение d=');read(d);
S:=Pi/4*(sqr(d+t*2)-sqr(d));
writeln('Площадь кольца=',S:5:2);
end.
<em>// PascalABC.NET 3.3, сборка 1590 от 03.12.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var n:=ReadInteger('n=');
var a:=ArrRandom(n,-50,50); a.Println;
var m:=n-1;
var found:=false;
for var i:=0 to m do begin
for var j:=0 to m do
if i=j then continue
else begin
for var k:=0 to m do
if (k=i) or (k=j) then continue
else
if a[i]+a[j]+a[k]=0 then begin
Println('Решение:',a[i],a[j],a[k]);
found:=true;
break
end;
if found then break
end;
if found then break
end;
if not found then Writeln('Нет нужной тройки чисел')
end.
<u>Примеры</u>
n= 13
-25 -29 41 -19 -9 50 -23 36 33 23 48 -6 -5
Решение: -25 -23 48
n= 8
-33 -23 -3 -5 -5 -20 -22 34
Нет нужной тройки чисел
1. Задумане число - х
х + 25 + 125 - 37 - х = 113
113 × 50 ÷ 10 = 565
2. Задумане число - х
((х + 64) ÷ 2) × 3 = 1,5х + 96
наприклад х = 3, тоді відповідь : 1,5 × 3 + 96 = 100,5
3. 6:00, 6:10, 6:20, 6:30, 6:40
Приклад для першого завдання
х = 1, тоді
1 + 25 + 125 - 37 -1 = 113
113 × 50 ÷ 10 = 565
Var x,p,rez:real;
<span> n: integer;
</span><span>begin
</span><span> p:=1;
</span><span> write('числа через пробел (завершение ввода - 0): '); read(x);
</span><span> while x<>0 do
</span><span> begin
</span><span> p:=p*abs(x);
</span><span> read(x);
</span><span> end;
</span><span> write('N = '); readln(n);
</span><span> rez:=exp((1/n)*ln(p));
</span><span> writeln('корень ',N,' -ой степени из ',p,' = ',rez);
</span><span>end.
</span><span>
</span>
