2. уточните, каков объём оперативной памяти компьютера, к которому вы имеете доступ дома. сколько страниц текста можно разместить в памяти этого компьютера (на странице размещается 40 строк по 60 символов в каждой строке, а для хранения одного символа требуется 8 битов)? какой была бы высота такой стопки страниц, если высота стопки из 100 страниц равна 1 см? 3. на компакт-диске объёмом 600 мбайт размещён фотоальбом, каждое фото в котором занимает 400 кбайт. сколько времени займет просмотр всех фотографий, если на просмотр одной уходит 5 секунд?

Пусть объем оперативной памяти 4Гб
4Гб = 4 * 1024 * 1024 * 1024 байт = 4 294 967 296 байт
Вес одного символа 8 бит = 1 байт
Вес страницы = 40 * 60 * 1 байт = 2400 байт
Кол-во страниц = 536 870 912 000 / 2400  = 1 789 569.70666667
Округляем в меньшую сторону, ведь страниц может быть только целое кол-во = 1 789 569
Высота = 1 789 569 / 100 = 17 895.7 см

600 Мбайт = 614 400 кбайт
Кол-во фото 614400 / 400 = 1 536
Время = 1536 * 5 с = 7 680 с = 2.13333333333333 часов

1)

var

  a: 100..999;

  a1, a2, a3: 0..9;   //а1 - сотни, а2 - десятки, а3 - единицы

 

begin

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a1, a3, a2);

end.

2)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin

   

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a2, a1, a3);

end.

3)

var

  a: 100..999;

  a1, a2, a3: 0..9;

 

begin 

  writeln('введите натуральное трехзначное число');

  readln(a);

  a1: = a div 100;

  a2: = (a mod 100) div 10;

  a3: = a mod 10;

  writeln('полученное число:   ', a3, a1, a2, a3);

end.

4)

var

  a: 1000..9999;

  a1, a2, a3, a4: 0..9;

 

begin

  writeln('введите натуральное четырехзначное число');

  readln(a);

  a1: = a div 1000;   //тысячи

  a2: = (a mod 1000) div 100;   //сотни

  a3: = (a mod 100) div 10;   //десятки

  a4: = a mod 10;   //единицы

  writeln('полученное число:   ', a4, a3, a2, a1);

end.

все остальное делается наподобие этого: просто в writeln меняешь местами цифры и все.

   

например, это можно сделать так:

UPD: изменено

#include <iostream>

#include <set>

#include <cmath>

using namespace std;

bool prime(int n){

   for(int i = 2; i * i <= n; i++)

       if(n % i == 0)

           return false;

   return true;    

}

signed main() {

   int n;

   cin >> n;

   set<int> ok;

   ok.insert(2);

   ok.insert(3);

   ok.insert(5);

   int sum = 0, cnt = 0,cur = 2;

   while(cnt != n){

       bool norm = true;

       for(int i = 2; i * i <= cur; i++)

           if(cur % i == 0 && ( ok.find(i) == ok.end() && prime(i)) || (cur % (n/i) == 0 && ok.find(n/i) == ok.end() && prime(n/i)))

               norm = false;

       if(norm){sum += cur; cnt++;}

       cur++;

   }

   cout << sum;

}