Найти все целые трёхзначные числа сумма цифр которых равна 6.Pascal ABC.Срочно
Ответы на вопрос
Ответил elenaklon
0
var a,b,c,i:integer;
begin
for i:=100 to 999 do
begin
a:= i div 100;
b:= i mod 100 div 10;
c:= i mod 10;
if a+b+c = 6 then writeln(i)
end;
readln
end.
begin
for i:=100 to 999 do
begin
a:= i div 100;
b:= i mod 100 div 10;
c:= i mod 10;
if a+b+c = 6 then writeln(i)
end;
readln
end.
Ответил IvanVRN136
0
Боже,огромное спасибо,вы спасли мою четвертную!
Ответил Аноним
0
Var
a,b,c: byte;
Begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
if (a+b+c = 6) then
WriteLn(a,b,c);
End.
Вывод:
105
114
123
132
141
150
204
213
222
231
240
303
312
321
330
402
411
420
501
510
600
a,b,c: byte;
Begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
if (a+b+c = 6) then
WriteLn(a,b,c);
End.
Вывод:
105
114
123
132
141
150
204
213
222
231
240
303
312
321
330
402
411
420
501
510
600
Новые вопросы