Var ch:integer;beginread(ch);while ch>0 do begin if (ch mod 2)=0 then begin ch:=ch div 2; write(2); end else begin ch:=ch-1; write(1); end; end;end.
Данная программа выводит числа, которые являются однозначными или если число, находящееся разряде десятков нечетно, и больше либо равно 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
В зоопарке есть очень много животных, как хищные, млекопитающие и др. экипаж первый второй. больше незнаю
1) x mod 2 = 1
2) if x < 0 then x := -x
3) в
4) б
5) в
6) в
7) б и в
8) \овал: Начало\
\стрелка вниз\
\параллелограмм: N := 2\
\стрелка вниз\
\ромб: N > 200?\
\стрелка да\
\овал: Конец\
\стрелка нет\
\параллелограмм: Вывести число N\
\стрелка вниз\
\параллелограмм: N := N + 2\
\стрелка к ромбу\
В) Так как расширение не может быть уникальным,а полное имя файла собственное имя+ расширение.