function sum(i, n: <em>integer</em>): <em>boolean</em>;
var
a, b: <em>integer</em>;
begin
a := i;
repeat
b := b + a mod 10;
a := a div 10;
until (a = 0);
sum := (b = n);
end;
var
n, i, k: <em>integer</em>;
begin
readln(n, k);
for i := 1 to k do
if sum(i, n) then
writeln(i);
end.
Program Primer;
var
i: Integer;
b:Boolean;
begin
Write('Введите число: ');
ReadLn(i);
if ((i<-99) and (i>-1000)) or ((i>99) and (i<1000))
then b:=true;
WriteLn(b);
end.
For i=1 to 15
input a
s=s+a
next
? s
#include <iostream>
#include <math.h>
using namespace std;
int main() {
cout.precision(100);
double a, b, c, D, x1, x2;
cin >> a >> b >> c;
D=b*b-4*a*c;
/* if (D<0) {
cout << "the equation has no solutions in real numbers" << endl;
return 0;
}
if (D==0) {
cout << "x=" << -b/(2*a) << endl;
return 0;
}
Если что, это фрагмент программы для проверки D=0 и D<0. Если не нужен - просто сотри*/
D=sqrt(D);
x1=(-b+D)/(2*a);
x2=(-b-D)/(2*a);
if (x1<x2)
cout << "x1=" << x1 << endl << "x2=" << x2 << endl;
else cout << "x1=" << x2 << endl << "x2=" << x1 << endl;
return 0;
}