Дано целое положительное число.Узнать есть ли в нем нечетные цифры если есть написать True ,а если нет False.Напечатать фразу я учусь программировать Указанное количество раз умоляю

ответ: var

A: real;

begin

write('A = ');

readln(A);

writeln;

{ Если A > 0, то результат

будет True, иначе - False: }

writeln('Число A является положительным: ', A > 0);

readln

end.

Объяснение:

1.

program z1;

var a,b:integer;

begin

write ('Введите число: ');

readln(a);

repeat

b:=a mod 10;

a:=a div 10

until (a=0) or (b mod 2 <> 0);//прерываем цикл если перебрали все цифры числа или нашли нечётную цифру

write (b mod 2 <> 0)//если условие верно выводит True, в обратном случае False

end.

2.

program z2;

var i,n:integer;

begin

write ('Введите сколько раз напечатать фразу: ');

readln(n);

for i:=1 to n do writeln ('я учусь программировать')

end.