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

Установите дробный формат для данных, представленных ниже, по образцу (табл. 3.7). 2)в одну из ячеек листа должна вводиться дата рождения одного из учеников вашего класса (в формате дата) предусмотрите автоматическую проверку на правильность вводимых в эту ячейку значений​

Показать ответ
Ответ:
DayanaTolepber
DayanaTolepber
22.02.2022 12:09

1) Код программы;

#include <iostream>

#include <locale>  

using namespace std;  

int main()

{

setlocale(LC_ALL, "Russian");

int *mas, x;

cout << "Введите последний элемент массива(X): ";

cin >> x;

mas = new int[x];

for (int i = x-1; i >= 0; --i)

 mas[i] = i+1;

cout << "Массив:" << endl;

for (int i = 0; i < x; ++i)

 cout << mas[i] << ' ';

}

2) Код программы;

#include <iostream>

#include <locale>  

using namespace std;  

int main()

{

setlocale(LC_ALL, "Russian");

int *mas, n;

cout << "Введите N: ";

cin >> n;

mas = new int[n];

for (int i = 0; i < n; ++i)

 mas[i] = pow(2, i+1);

cout << "Массив:" << endl;

for (int i = 0; i < n; ++i)

 cout << mas[i] << ' ';

}

0,0(0 оценок)
Ответ:
настя7096
настя7096
30.04.2023 13:14

1:

program prog;

var i,n,s,a:integer;

var chk:boolean;

begin

   chk:=False;

   s:=1;

   write('Введите количество вводимых чисел: '); readln(n);

   for i:=1 to n do

   begin

       write('Введите ', i, '-е число: '); readln(a);

       if i mod 2 = 0 then

       begin

           s:=s*a;

           chk:=True;

       end;

   end;

   if chk = False then s:=0;

   write('Произведение чётных членов введённой последовательности равно ', s);

end.

2:

program fib;

var

   F1,F2,n,i :Integer;

begin

   write('Введите количество чисел Фибоначчи: '); readln(n);

   F1:=1;

   F2:=1;

   For i:=1 to n do

   begin

       if i>2 then

       begin

           F1:=F1+F2;

           F2:=F1-F2;

       end;

       write(F1, ' ');

   end;

end.

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