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

Исполнитель раздватри приобразует число на экране. у исполнителя есть три команды, которым приставлены номера 1. прибавить 1 2. умножить на 2 3 прибавить 3 сколько существует программ которые преобрауют исходное число 3 в число 16 и при этом траектория вычеслений не содержит чисел 6 и 12

Показать ответ
Ответ:
06060601
06060601
27.11.2020 19:05

#include <iostream>

 

using namespace std;

 

int main()

{

   int startDia(0);

   int endDia(0);

   int suma(0);

 

   cout << "Введите начало диапазона : ";

   cin>> startDia;

   cout <<endl;

   cout << "Введите конец диапазона :" ;

   cin >> endDia;

 

   int i = startDia;

 

   while (i <= endDia)

   {

       if(i % 2 !=0)

       {

           cout <<i << " ";

           suma +=i;

       }

       i++;

 

   }

   cout <<"Сумма нечетных чисел c"<< startDia <<"по" << endDia << "= " << suma <<endl ;

   return 0 ;

}

0,0(0 оценок)
Ответ:
bektursun
bektursun
12.02.2020 13:54

1)

var i,n:integer; a:array[1..100]of integer;  

begin

write('Введите размер массива: '); readln(n);  

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;  

for i:=1 to n do write(a[ i]:8); writeln;  

for i:=n downto 1 do write(a[i]:8); writeln;  

writeln('Для выхода нажмите Enter'); readln  

end.

2)

var i,n:integer; a:array[1..100]of integer;  

begin

write('Введите размер массива: '); readln(n);  

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[ i]); readln;  

for i:=1 to n do if a[i]<0 then write(i:2,a[i]:8); writeln;  

writeln('Для выхода нажмите Enter'); readln  

end.

3)

var i,n:integer; a:array[1..100]of integer;  

begin

write('Введите размер массива: '); readln(n);  

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;  

for i:=1 to n do if not odd(i) then write(a[i]:8); writeln;  

writeln('Для выхода нажмите Enter'); readln  

end.

4)  

var i,n,s:integer; a:array[1..100]of integer;  

begin

write('Введите размер массива: '); readln(n);  

writeln('Введите значения элементов массива, разделяя их пробелами');

for i:=1 to n do read(a[i]); readln;  

for i:=1 to n do write(a[i]:8); writeln;  

s:=0; for i:=1 to n do s:=s+a[i]; writeln('Sum=',s); ;  

writeln('Для выхода нажмите Enter'); readln  

end.

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