Задача №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>
// PascalABC.NET 3.1, сборка 1172 от 19.02.2016
begin
var s:=ReadlnString;
s:=s.Where(d->d in ['0'..'9']).JoinIntoString('');
Writeln(s)
end.
<u><em>Тестовое решение:</em></u>
a3f4h5k&2
3452
Если введеный X будет четным.
Первый ребус сорока
Второй ребус синица
var
a: real;
k: byte;
begin
writeln('1 - l okp.');
writeln('2 - r okp.');
writeln('3 - d okp.');
readln(k);
readln(a);
write('S = ');
case k of
1: writeln(sqr(a) / (4 * Pi):0:2);
2: writeln(Pi * sqr(a):0:2);
3: writeln(Pi * sqr(a / 2):0:2);
else writeln('?');
end;
end.