В одновимірному масиві визначити номер мінімального по модулю елемента c++

213

293

Посмотреть ответы 1

Ответы на вопрос:

алина3894

Информатика

4,5(73 оценок)

Var a,n,c: byte; b: boolean; begin b: =false; write('n = '); readln(n); a: =10; while a< 100 do begin if a mod n = 0 then begin c: =a; while c< > 0 do begin if c mod 10 = n then b: =true; c: =c div 10 end; if b then write(a,' '); b: =false end; a: =a+1 end end.