PASCAL ABC, программа! Вводится целое положительное число. Найти наименьшую нече...

July 2022 1 4 Report

PASCAL ABC, программа! Вводится целое положительное число. Найти наименьшую нечетную цифру в числе. Если в числе нет нечетных цифр, то вывести надпись "В числе нет нечетных цифр"

Answers & Comments

Georgyi 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.

2 votes Thanks 1

Answers & Comments

pomogite pozhalujsta osushestvit reakcii aminokisloty nh2 ch2 co

pozhalujsta pomogite zhelatelno v molekulyarnoj formule srochno

srochno pomogitesrochno pomogite pozhalujstaopredelite massu osadka kotoryj ob

pomogite pozhalujstaopredelit massu soli kotoraya obrazuetsya pri vzaimodejstvi

pascal abc programma vvoditsya celoe polozhitelnoe chislo najti naimenshuyu necheb61a45c05ba3d5e7a970052165cd618a 64469

pozhalujsta pomogite6fdf3d02cef4457bacc34877e0c4cdb3 13811

dany dliny avs storon nekotorogo treugolnika najti mediany treugolnika sto

write about the country and the city you would like to visit and why okolo 18 2

najti summu nechetnyh cifr celogo polozhitelnogo chisla esli vozmozhno to s ciklo

рекомендуемые вопросы

Helpful Links

Helpful Social