Var a,b,c:integer;
begin
readln(a);
b:=10;
while a>0 do
begin
c:=a mod 10;
if (c mod 2<>0) and (c<b) then b:=c;
a:=a div 10;
end;
if b<10 then write(b) else write('В числе нет нечетных цифр');
end.
Var a:real;
begin
writeln('Введите расстояние в километрах');
readln(a);
a:=a*1000/1066.8;
writeln(a);
<span>end.</span>
<span>import java.lang.*<span>;
</span>import java.util.*<span>;
</span>import java.math.*<span>;
</span>
class Brainly{
public static void main(String[] args){
int m, n<span>;
</span> Scanner sc = new Scanner(System.in)<span>;
</span>
System.out.print("Enter m: "); m = sc.nextInt()<span>;
</span> System.out.print("Enter n: "); n = sc.nextInt()<span>;
</span>
int A[][] = new int[m][n]<span>;
</span>
for(int i = 0; i < m; i++){
for(int j = 0; j < n; j++){
float random = (float) Math.random()<span>;
</span> random *= -100<span>;
</span> int rand = (int) Math.ceil(random) + 200<span>;;
</span>
if((i + j) == rand){
System.out.println("A: " + i + " " + j)<span>;
</span> }<span>;
</span> }<span>;
</span> }<span>;
</span> }<span>;
</span>}</span>
Var A,i,k:integer;
Begin
Write('Введите 10 целых чисел: ');
k:=0;
For i:= 1 to 10 do
Begin
Read(A);
if A>0 then k:=k+1
End;
Write('Количество положительных: ',k);
End.
Мне кажется б) потому что им надо узнать ответ. Задавая вопросы