Для 3) х=5 условиям не удовлетворяет
Вроде получилось:
var a,b,s:integer;
begin
write('Числа = ');
for a:=1 to 100 do
begin
b:=a mod 3;
if (b = 0) then
begin
write(a,', ');
s:=s+a;
if((s > 500) and (s<520)) then break;
end;
end;
writeln('Сумма чисел = ', s);
end.
Результат:
100 и 1000 также являются красивыми числами. Приведу код, который короче:
Uses crt;
var x,y:integer;
begin
write('x='); readln(x);
y:=sqr(1-sqr(x)+5*sqr(sqr(x)));
writeln('y=',y);
<span>end.</span>