Решить задачу: Билет называют счастливым , если - вопрос №11438044 от Erkinbekulbosin 05.03.2021 06:15

Question

Информатика: Решить задачу: Билет называют счастливым , если в его номер сумма первых трёх цифр равна сумме последних трёх. Подсчитать число тех счастливых билетов, у которых сумма трёх цифр равна 13.

Erkinbekulbosin · Answer

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.