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

БУДУ ОЧЕНЬ БЛАГОДАРЕН написать текст программы на языке паскаль вычислить значения ">

Показать ответ
Ответ:
catxripunowa
catxripunowa
28.11.2020 07:45

// A)

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var Count := 2;

 

 repeat

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

   Count += 1

 until Count = 40;

 

 Write(f2)

end.

// B)

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var m := ReadlnInteger();

 

 repeat

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

 until f2 > m;

 

 Write(f2)

end.

// C)

begin

 var f1 := BigInteger(1);

 var f2 := BigInteger(1);

 var S := f1;

 

 repeat

   S += f2;

   var f := BigInteger(f1 + f2);

   f1 := f2;

   f2 := f;

 until f2 >= 1000;

 

 Write(S)

end.

0,0(0 оценок)
Ответ:
9763
9763
28.02.2020 10:26

#include <iostream>

#include <ctime>

using namespace std;

int main()

{

   srand ( time(NULL) );

   int arr[10],i,k=0;

   //Заполняешь массив

   for (i=0;i<sizeof(arr)/sizeof(int);i++)

   {

       arr[i] = 1+rand()%10;

   }

   //Перебираешь массив

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

   for (int i=0; i<sizeof(arr)/sizeof(int);i++)

   {

       cout<<" "<<arr[i];

       if (arr[i] % 2 == 0)

       {

           k++;

       }

   }

   cout<<endl<<"Четных :"<<k;

   return 0;

}

Объяснение:

много на самом деле. Например самый банальный. Перебираешь массив и проверяешь, если текущий элемент при делении на 2 дает в остатке 0 - значит четное. Значит прибавляешь счетчик (например, переменную a++). Иначе ничего не делаешь. В конце выводишь результат счетчика (a)

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