Данная программа выводит числа, которые являются однозначными или если число, находящееся разряде десятков нечетно, и больше либо равно 50.
Ответ: 39.
Программа на языке C++.
#include < iostream >
using namespace std;
int main() {
int count;
for (int x = 1; x <= 65; x++){
if ((x/10 == 0) || (((x/10)%2 == 1)&&(x >= 50))){
++count;
cout << count << ". " << x << endl;
}
}
}
Подробнее - на Znanija.com - znanija.com/task/28669772#readmore
var
a:integer;
begin
readln (a);
repeat
a:=a+1;
until (a mod 2=0);
writeln (a);
end.
<h3>PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var X := ArrRandom(ReadInteger('A='), -21, 21);
X.Println;
X.Sorted.Println;
X.Where(t -> t.IsOdd).OrderDescending.Println
end.
<h3>A= 18</h3><h3>9 9 -10 21 -11 -13 -2 19 5 20 -5 20 11 -6 -2 -10 14 -12</h3><h3>-13 -12 -11 -10 -10 -6 -5 -2 -2 5 9 9 11 14 19 20 20 21</h3><h3>21 19 11 9 9 5 -5 -11 -13</h3>