Найти все двузначные числа, которые делятся на n или содержат цифру n. ! умоляю

262

294

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

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

малышка135

Информатика

4,4(91 оценок)

Var n, i: integer; begin read(n); for i: =10 to 99 do if (i mod n=0) and (i mod 10< > n) and (i div 10< > n) then write(i, ' '); end.

solovyevadasha

Информатика

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

Program gt; var a: array[1..7]of integer; k,i,q: integer; begin read(k); q: =0; for i: =1 to 7 do read(a[i]); for i: =1 to 7 do begin if(a[i]> -20)then writeln(i,' день ',k,' тонн угля'); if(a[i]< =-20)and(a[i]> =-30)then writeln(i,' день ',k+5,' тонн угля'); if(a[i]< -30)then writeln(i,' день ',k+12,' тонн угля'); if(a[i]< -30)then q: =q+1; end; writeln(q,' дней температура было ниже -30'); end.