Написать программу подсчитывающую количество счастливых билетов - Pascal ABC
Формулировка задачи:
1. Билет называется «счастливым», если в его номере сумма первых трех цифр равно сумме последних трех. Написать программу, подсчитывающую количество тех «счастливых» билетов, у которых сумма трех цифр равна 13.
Решение задачи: «Написать программу подсчитывающую количество счастливых билетов»
textual
Листинг программы
var i,j,k,m:integer;
begin
k:=0;
i:=0;
while i<=9 do
begin
j:=0;
while j<=9 do
begin
m:=0;
while m<=9 do
begin
if i+j+m=13 then inc(k);
m:=m+1;
end;
j:=j+1;
end;
i:=i+1;
end;
k:=k*k;
write('k=',k);
end.
Объяснение кода листинга программы
В данном коде используется цикл while, который выполняется до тех пор, пока условие (i<=9 и j<=9 и m<=9) выполняется. Внутри цикла используются вложенные циклы while, которые также выполняются до тех пор, пока условие (i+j+m=13) выполняется. Внутри первого цикла while увеличивается значение переменной k, если выполняется условие (i+j+m=13). Во втором цикле while переменная m увеличивается на единицу до тех пор, пока не превысит значение 9. После выполнения всех вложенных циклов, значение переменной k умножается на само себя и выводится на экран с помощью функции write.