<em>// PascalABC.NET 3.2, сборка 1383 от 09.02.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var x:=ReadReal;
var t:=SeqGen(30,x,y->y*x).Select(y->sin(y)).Any(y->y<0);
Writeln(t);
end.
<u>Примеры</u>
0.73
False
1.18
True
1) readln(n);
if n mod 3 = 0 then
writeln('True');
2)readln(x,y);
if (x=0) or (y=0) then
writeln('OSb');
if (x=0) and (y=0) then
writeln('center');
var
a,b:integer;
begin
readln(a);
a:=a*9;
while a<>9 do
begin
b:=0;
while a<>0 do
begin
b:=b+a mod 10;
a:=a div 10;
end;
a:=b;
end;
end.
Записываешь число, после справа налево записываешь нумерацию цифр в числе, начиная с нуля, потом по формуле " K*p^n+.....и так со всеми цифрами" k- само число, р - та система счисления, в которую переводишь, n - номер цифры Пример: 101 (двоичая). 1*2^2+0*2^1+1*1^0
Program odin;
var a,b,c,d:integer;
x,y:integer;
begin
readln(a,b,c,d);
x:=a+b+c+d;
y:=a*b*c*d;
writeln('сумма чисел = ', x);
writeln('произведение чисел = ', y);
end.
// ------------------------------------------
program dva;
const p=3.14;
var r:integer;
s:real;
begin
writeln('Введите радиус ');
readln(r);
s:= pi * r * r;
writeln('Площадь круга = ', s);
end.