Есеп Turbo Pascal тілінде шықты:
uses crt;
var c: array[1..999] of integer;
a, b, d, i: integer;
a1, a2, a3:integer;
begin
clrscr;
writeln('Ush saninin qosindisi neshege teng bolsin: ');
readln(a);
writeln('Qai sannan ayaqtalatyn sandardi tabu kerek: ');
readln(b);
writeln('Kansha san karastiraik: ');
readln(d);
for i:=1 to d do begin
c[i]:=random(100,999);
writeln(i,' = ',c[i]); end;
for i:=1 to d do begin
if c[i] mod 100 = b then begin
if c[i] div 100 + c[i] div 10 div 10 + c[i] mod 100 = a then
writeln(c[i]) else
writeln (i, ' indexindegi ', c[i], ' maninin sandarinin kosindisi ',a,' manine ten bolip, ',b, ' sanimen aiaktaladi.');
end; end;
end.
*
