Решить задачу: Билет называют "счастливым", если в его номер сумма первых трёх цифр равна сумме последних трёх. Подсчитать число тех "счастливых" билетов, у которых сумма трёх цифр равна 13.
паскаль?
Ага
uses crt;
var a,b,c:byte;
d:word;
begin
clrscr;
d:=0;
for a:=0 to 9 do
for b:=0 to 9 do
for c:=0 to 9 do
if a+b+c=13 then d:=d+1;
d:=d*d;
write('Kolichestvo schasctlivih biletov=',d);
readln
end.
Спасибо!