написать программу в Паскале Хотя бы одну задачу

PascalABC.NET

begin

 var a := ArrGen(10, i -> i in [0, 2, 6] ? 2 * (i + 1) + 10 :

     (i - 7) * 3);

 Writeln('массив');

 var m := a.Println.Where(p -> p.IsEven).Average;

 Write('sr=', m)

end.

begin

 var a := ArrGen(10, i -> (i + 1) mod 3 = 0 ? -i : Sqr(i + 2));

 Writeln('массив');

 var s := a.Println.Sum;

 Writeln('sr=', s);

 a.Transform(p -> p < 0 ? s : p);

 Writeln('новый массив');

 a.Print

end.

begin

 var a := ArrGen(15, i -> i < 7 ? i * (i + 6.1) + 5.1 : i - 4.7);

 Writeln('массив');

 foreach var k in a do

   Write(k:7:2);

 Writeln;

 var p := 1.0;

 for var i := 2 to 4 do

   p *= a[i];

 Write('p= ', p:0:3)

end.

Индексы в массивах PascalABC.NET идут не от единицы, а от нуля, как во всех современнных языках программирования. Поэтому исходные формулы пришлось немного преобразовать.

Примеры вывода не показаны, поскольку они точно совпадают с заданными.

Дано:

V = 512 Кбайт

Р = 640 ×480 пикс

N1=16 цв

N2  =256 цв

Найти:

S1 -?

S2 - ?

1) Найдем количество пикселей в изображении:

P = 640 ×480 = 307200 пикселей в изображении видеопамяти

2) Найдем глубину кодирования 1 пикселя

N = 2^i, где i - глубина кодирования 1 пикселя (количество ячеек памяти, предназначенных для 1 точки экрана)

16 = 2^4

i1 = 4 бит - глубина кодирования 1 пикселя при использоывании 16 цветов

256 = 2^8

i2 = 8 бит - глубина кодирования 1 пикселя при использоывании 256 цветов

 

3) Найдем объемы памяти нужные для хранения 1 страницы изображения:

V1 = i1 × P = 4 × 307200 = 1228800 бит = 153600 байт = 150 Кбайт - займет одна страница изображения при палитре в 16 цветов

V2 = i2 × P = 8 × 307200 = 2457600 бит = 300 Кбайт - займет одна страница изображения при палитре в 256 цветов

 

4) Посчитаем, сколько поместиться страниц экрана при разных палитрах:

512/150  = 3, 4 страницы, если палитра 16 цветов

512/300 = 1,7 страницы, если палитра 258 цветов

ответ:3,4 стр при палитре в 16 цветов

1,7 страницы при палитре в 256 цветов.

#include <iostream>

using namespace std;

int main()
{
setlocale(LC_ALL, "Russian");
char key;
int i;
int a[255];
float arifm=0,sum=0,b=0;

cout << "Введите числа от а до б через пробел! (Условие: a < b)"<<endl;

for (i=0; i < 254; i++){
cin >> a[i];

if(i >= 1 && a[i] < a[i-1]){
break;
}
b++;
}

cout << "Получили числа: ";
for (i=0;i < b; i++){
cout << " " << a[i];
sum += a[i];
}
cout << endl<< "Сумма чисел = " << sum << endl;
arifm = sum / (b);
cout << "Среднее арифметическое = " << arifm << endl;
system ("pause");
}

 

Только не дописал выход из цыкла.. сейчас он при нарушение условия а < б
Если надо думаю справитесь с do while