Задача №2
uses crt;var x,i: integer; begin cls; write('x= '); readln(x); for i:=1 to x do if (x mod i)=0 then writeln(i);<span>end.
Задача №1
uses crt;var x,a,b,c,i: integer; begin cls; for i:=100 to 999 do begin a:= i div 100; b:= (i - a*100) div 10; c:= (i - a*100 - b*10); if (a+b+c)*(a+b+c)*(a+b+c)=i then begin writeln(i); inc(x); end; end; if x=0 then write('Такого числа нет');<span>end.
Задача №3
uses crt;var x,a,b,i: integer; begin cls; for i:=10 to 99 do begin a:= i div 10; b:= i - a*10; if a=(b*2) then writeln(i); end;<span>end.</span></span></span>
ну а вдруг числа отрицатильные)) а abs делает их положительными)
var a,b:real;
begin cls;
write('vvedite a '); readln(a);
write('vvedite b '); readln(b);
If a>b then
begin
a:=2*a*b;
b:=(a+b)/2;
end
else
begin
a:=(a+b)/2;
b:=2*a*b;
end; writeln('a= ',a:0:2,' ','b= ',b:0:2);
end.
// PascalABC.NET 3.3.5, сборка 1669 от 21.05.2018
// Внимание! Если программа не работает, обновите версию!
begin
var a:=ReadAllText('A.txt').ToIntegers;
WriteAllText('B.txt',(a[0]*a[1]).ToString)
end.
3
var n: integer;
s: real;
begin
s:=0;
n:=1;
while n <= 3*3*3*3*3*3*3*3 do begin
s:= s+1/n;
n:= n*3;
end;
writeln(s);
end.
4
var a: integer;
s: real;
begin
s:=1;
readln(a);
for var i:=1 to a do begin
s:= s-1/(i+1);
s:= s+1/(i+2);
end;
writeln(s);
end.
