В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
Louis12
Louis12
15.08.2021 10:49 •  Информатика

Каким наименьшим числом в десятичной системе счисления можно заменить переменную x, чтобы результат выражения был целым чётным числом? В ответ запишите только одно число в десятичной системе счисления.


Каким наименьшим числом в десятичной системе счисления можно заменить переменную x, чтобы результат

Показать ответ
Ответ:
melashich2004
melashich2004
19.05.2023 05:04

//PascalABC.NET версия 3.4.2.1991 от 03.03.19

//Если программа не запускается, то обновите версию

const

   handsfree = true;

   nmax = 100;

   random_min = -50;

   random_max = 50;

var

   a: array[1..nmax] of real;

   i, n, count: integer;

procedure QuickSort(first, last: Integer);{ Быстрая сортировка массива A[] , использует массив как глобальную переменную}

var

   i, j: integer;

   x, y: real;

begin

   i := first;

   j := last;

   x := a[(first + last) div 2];

   repeat

       while (A[i] < x) do inc(i);

       while (x < A[j]) do dec(j);

       if (i <= j) then

       begin

           y := A[i]; a[i] := a[j]; a[j] := y;

           inc(i); dec(j);

       end;

   until (i > j);

   if (first < j) then QuickSort(first, j);

   if (i < last) then QuickSort(i, last);

end;

begin

   {ввод массива}

   n := nmax;

   if handsfree then begin

       n := random(nmax - 5) + 5;

       for i := 1 to n do

       begin

           a[i] := random(random_max - random_min) + random_min;

           write(a[i], ' ');

       end

   end

   else begin

       write('n = ');

       readln(n);

       for i := 1 to n do

           readln(a[i]);

   end;

   writeln();

   

   QuickSort(1, n);

   

   {вывод массива}

   writeln('Вывод массива[', n, ']:');

   for i := 1 to n do

       write(a[i], ' ');

   writeln();

   

   {подсчет разных}

   count := 1; {первый элемент точно разный}

   for i := 2 to n do

       if a[i] <> a[i - 1] then

           count := count + 1;

   writeln('Разных элементов = ', count);

end.

0,0(0 оценок)
Ответ:
доньак
доньак
25.02.2021 14:09

#include<bits/stdc++.h>

using namespace std;

int main()

{int n;

cin>>n;

if(n==10)

cout<<"десять учебных заданий";

if(n==11)

cout<<"одиннадцать учебных заданий";

if(n==12)

cout<<"двенадцать учебных заданий";

if(n==13)

cout<<"тринадцать учебных заданий";

if(n==14)

cout<<"четырнадцать учебных заданий";

if(n==15)

cout<<"пятнадцать учебных заданий";

if(n==16)

cout<<"шестнадцать учебных заданий";

if(n==17)

cout<<"семнадцать учебных заданий";

if(n==18)

cout<<"восемнадцать учебных заданий";

if(n==19)

cout<<"девятнадцать учебных заданий";

if(n==20)

cout<<"двадцать учебных заданий";

if(n==21)

cout<<"двадцать одно учебное задание";

if(n==22)

cout<<"двадцать два учебных заданий";

if(n==23)

cout<<"двадцать три учебных заданий";

if(n==24)

cout<<"двадцать четыре учебных заданий";

if(n==25)

cout<<"двадцать пять учебных заданий";

if(n==26)

cout<<"двадцать шесть учебных заданий";

if(n==27)

cout<<"двадцать семь учебных заданий";

if(n==28)

cout<<"двадцать восемь учебных заданий";

if(n==29)

cout<<"двадцать девять учебных заданий";

if(n==30)

cout<<"тридцать учебных заданий";

if(n==31)

cout<<"тридцать одно учебное задание";

if(n==32)

cout<<"тридцать два учебных заданий";

if(n==33)

cout<<"тридцать три учебных заданий";

if(n==34)

cout<<"тридцать четыре учебных заданий";

if(n==35)

cout<<"тридцать пять учебных заданий";

if(n==36)

cout<<"тридцать шесть учебных заданий";

if(n==37)

cout<<"тридцать семь учебных заданий";

if(n==38)

cout<<"тридцать восемь учебных заданий";

if(n==39)

cout<<"тридцать девять учебных заданий";

if(n==40)

cout<<"сорок учебных заданий";

}

0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота