1. if (a < (b+c)) or (b < (a+c)) or (c < (a+b)) then может.
2. d := b*b - 4*a*c;
if (d < 0) then нет решение
x1 := (-b + sqrt(d)) / 2 / a;
x2 := (-b - sqrt(d)) / 2 / a;
Вроде получилось:
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.
Результат:
Ответ:
БЕДЖГАВ
Объяснение:
http://letter.net/http.doc
Выделяешь текст (или сразу делаешь стиль) - на выделенном правой мышей - Шрифт - Интервал - Разреженный. Там проставляешь нужное значение.