Помогите написать программу в паскале , нужно посчитать колличестао "счастливых" билетиков в автобусе !
Ответы
Ответ дал:
0
var
a, b, c, d, e, f, k: integer;
begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
for d := 0 to 9 do
for e := 0 to 9 do
for f := 0 to 9 do
if a + b + c = d + e + f then
k := k + 1;
Writeln(k);
end.
a, b, c, d, e, f, k: integer;
begin
for a := 1 to 9 do
for b := 0 to 9 do
for c := 0 to 9 do
for d := 0 to 9 do
for e := 0 to 9 do
for f := 0 to 9 do
if a + b + c = d + e + f then
k := k + 1;
Writeln(k);
end.
Похожие вопросы
2 года назад
2 года назад
9 лет назад
9 лет назад