Решить задачу: Билет называют счастливым , если - вопрос №11437644 от Selima2005 10.03.2020 07:51

Question

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

Selima2005 · 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.