Сделайте, пожалуйста на языке программирования КУМИР!!! 40 баллов
Answers & Comments
asoiiu
1. алг Девять нач цел a,i,s ввод a | вывод a s:=0; нц пока a<>0 i:=mod(a,10); a:=div(a,10); если i=9 то s:=s+1; все кц если s>1 то вывод "Цифр 9 в введенном числе больше одной - ", s иначе если s=0 то вывод "Цифр 9 в введенном числе нет" иначе вывод "Цифра 9 в введенном числе одна" все; все кон
2. алг ЧетНечет нач цел a,i,s,k ввод a | вывод a s:=0; k:=0; нц пока a<>0 i:=mod(a,10); a:=div(a,10); k:=k+1; если mod(i,2)=0 то s:=s+1; все кц если s=k то вывод "Все цифры введенного числа четные " иначе вывод "Не все цифры введенного числа четные" все кон
3. алг Возрастание нач цел a,i,s,k,d,z ввод a s:=0; k:=0; d:=0; z:=1; нц пока a<>0 i:=mod(a,10); a:=div(a,10); d:=s; s:=i; k:=k+1; если d>s то z:=z+1; все кц если z=k то вывод "Все цифры введенного числа идут в порядке возрастания" иначе вывод "Не все цифры введенного числа идут в порядке возрастания" все кон
Answers & Comments
алг Девять
нач цел a,i,s
ввод a
| вывод a
s:=0;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
если i=9
то s:=s+1;
все
кц
если s>1
то вывод "Цифр 9 в введенном числе больше одной - ", s
иначе если s=0
то вывод "Цифр 9 в введенном числе нет"
иначе вывод "Цифра 9 в введенном числе одна"
все;
все
кон
2.
алг ЧетНечет
нач цел a,i,s,k
ввод a
| вывод a
s:=0;
k:=0;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
k:=k+1;
если mod(i,2)=0
то s:=s+1;
все
кц
если s=k
то вывод "Все цифры введенного числа четные "
иначе вывод "Не все цифры введенного числа четные"
все
кон
3.
алг Возрастание
нач цел a,i,s,k,d,z
ввод a
s:=0;
k:=0;
d:=0;
z:=1;
нц пока a<>0
i:=mod(a,10);
a:=div(a,10);
d:=s;
s:=i;
k:=k+1;
если d>s
то z:=z+1;
все
кц
если z=k
то вывод "Все цифры введенного числа идут в порядке возрастания"
иначе вывод "Не все цифры введенного числа идут в порядке возрастания"
все
кон