Предмет: Информатика,
автор: IvanVRN136
Найти все целые трёхзначные числа сумма цифр которых равна 6.Pascal ABC.Срочно
Ответы
Автор ответа:
2
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:
Боже,огромное спасибо,вы спасли мою четвертную!
Автор ответа:
2
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
Интересные вопросы
Предмет: Химия,
автор: rror23637
Предмет: Английский язык,
автор: koteykamyr10
Предмет: Обществознание,
автор: haker1234567
Предмет: История,
автор: лооооооо0ооооооол
Предмет: Математика,
автор: viktoria218