Var n:integer; begin readln(n); writeln('Summary=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Sum); writeln('Count=',range(1,n).Where(x -> x mod 3=0).where(x -> x mod 10=2).Count); end.
//"Школьный" вариант Var i,n,sum,co:integer; begin readln(n); for i:=1 to n do if (i mod 3=0) and (i mod 10=2) then begin co:=co+1; sum:=sum+i; end; writeln('Summary=',sum); writeln('Count=',co); end.
Пример ввода: 14 Пример вывода: Summary=12 Count=1
a, b, c, d: real;
begin
write('Введите коэффициенты a,b,c ');
readln(a, b, c);
d := sqr(b) - 4 * a * c;
if d = 0 then
writeln('Корень один x = ', (-b / (2 * a))
else if d >0 then
writeln('x1 = ',(-b + sqrt(d)) / (2 * a), ' x2 = ',(-b - sqrt(d)) / (2 * a))
else writeln('Действительных корней нет');
end.
Тест №1
Введите коэффициенты a,b,c 1 -5 6
x1 = 3 x2 = 2
Тест №2
Введите коэффициенты a,b,c 1 2 3
Действительных корней нет
Тест №3
Введите коэффициенты a,b,c 1 0 0
Корень один x = 0