Question

Помогите !!! Срочно!!!
1)У четырехзначного числа сумма цифр равна 12 ,а сумма квадратов цифр равна 62 . Найти такие числа
2).Нужно купить 20 книжек на 1800 рублей по 100 ,200 ,300 рублей.Как это сделать
3)Среди первой тысячи натуральных чисел каких больше в записи которых нет цифры 1 или тех ,где есть хоть одна 1​

Answer 1

1.

program summa_12_a_summakvadratov_62;

var

i,j, k:Integer;

begin

for i:=1000 to 9999 do

if

((i mod 10)+

(i div 10 mod 10)+

(i div 100 mod 10)+

(i div 1000)=12)

and

(sqr(i mod 10)+

sqr(i div 10 mod 10)+

sqr(i div 100 mod 10)+

sqr(i div 1000)=62)

then

writeln(' 》',i)

end.

2. Условие уточните

3.

program kakih_bolshe_s_1_ili_bez;

var

i,j, k:Integer;

begin

for i:=1 to 1000 do

if

(i mod 10=1)or

(i div 10 mod 10=1)or

(i div 100 mod 10=1)or

(i div 1000=1)

then

inc(j)

else

inc(k);

write(' 1》',j,' others》',k)

end.