Программа Делфи. Язык Паскаль. Напишите программу нахождения всех трёхзначных чи...

October 2021 1 10 Report

Программа Делфи. Язык Паскаль. Напишите программу нахождения всех трёхзначных чисел, сумма цифр которых равна А. 50 БАЛЛОВ!! ОЧЕНЬ ПРОШУ, ПОМОГИТЕ!

Answers & Comments

Adequate Program Project2;
{$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.

1 votes Thanks 2

Answers & Comments

srednyaya ocenka vseh uchenikov kotorye pisali matematicheskij test okazalas ravn

He is fond of playing .... on people. a) fun b) smile c) jokes d) games...

60 ballov adama bojyndayny bri demi bolua tiis napishite sochinenie pozh

prudovik bryuhonogij mollyusk tak kak 20 ballov

30 ballov pomogite pozhalujsta obyasnite na kazahskom poslovicu keesip pishke

nohchalla kuda udarenie 20 ballov

рекомендуемые вопросы

Helpful Links

Helpful Social