Question

СРОЧНО!!! Помогите, пожалуйста!!!
2-ое задание из 1-го Варианта и 2,3 из 2-го​

Answer 1

Вариант 1 задание 2

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.