Напишите программу Паскаль к двум задачам: 1. Расстояние до ближайшей к Земле звезды Альфа Центавра 4,3 световых года. Скорость света принять за 300.000 км/с. Скорость земного звездолёта 100 км/с . За сколько лет звездолёт долетит до звезды?
2. Документ содержит текст из 32 строк по 60 символов в каждой и точечную черно-белую фотографию 10 × 15 см. Каждый квадратный сантиметр 300 точек, любая точка описывается 4-мя битами. Каков общий информационный объем документа в Кбайтах?

1:

#include<iostream>

#include<vector>

#include<iterator>

#include<ranges>

using namespace std;

int main()

{

   vector<int> vec;

   int sum=0;

   istream_iterator<int> it{cin};

   istream_iterator<int> end{};

   while(it!=end)

   {

       vec.push_back(*it);

       it++;

   }

   for(int i:vec | views::filter([](int i){return i%2==0;}))

   {

       sum+=i;

   }

   cout<<sum<<endl;

   return 0;

}

2:

#include<iostream>

using namespace std;

int main()

{

   int sum=0;

   for(int i=2;i<=32;i+=3)

   {

       sum+=i;

   }

   cout<<sum<<endl;

   return 0;

}

Объяснение:

#include <iostream>

using namespace std;

int main()

{

   int a;

   cin >> a;

   if (a > 0)

   {

       a += 1;

   }

   cout << a;

}

Объяснение:

#include <iostream>  // Библиотека ввода - вывода

using namespace std;  // Пространство имен

int main()

{

   int a;  // Создание целочисленной переменной a

   cin >> a;  // Ввод значения переменной a с клавиатуры

   if (a > 0)  // Если значение переменной а > 0

   {

       a += 1;  // К переменной a прибавляем единицу

   }

   cout << a;  // Выводим значение переменной a

}