Программа Делфи. Язык Паскаль. Напишите программу нахождения всех трёхзначных чисел, сумма цифр которых равна А. 50 БАЛЛОВ!! ОЧЕНЬ ПРОШУ, ПОМОГИТЕ!
More Questions From This User See All
Copyright © 2025 SCHOLAR.TIPS - All rights reserved.
Answers & Comments
{$APPTYPE CONSOLE}
uses SysUtils;
Const n=30;
m=1;
var b,c:array[m..n] of integer;
i,a,s,y,s1:integer;
BEGIN
Write('Vvedite trexsnachnoe chislo A: ');
readln(a);
y:=a; s:=0;
while ( y<>0 ) do
begin
s:=s + (y mod 10);
y:=y div 10;
end;
Writeln('Summa zifr ravna: ',s);
Writeln;
Writeln('Massiv: ');
For i:=m to n do
begin
b[i]:=100+Random(200);
Write(b[i],' ');
c[i]:=b[i];
end;
Writeln; Writeln;
Write('Vse chisla, kotorye ravny po summe zifr: ') ;
For i:=m to n do
begin
s1:=0;
while ( b[i]<>0 ) do
begin
s1:=s1 + (b[i] mod 10);
b[i]:=b[i] div 10; end;
//Write(' ',S1,' ');
If s=s1 then
begin
Write(c[i],' ');
end; end;
Readln;
END.