Если на каждый цвет выделено по байту (и нет прозрачности), то i = 32*64*3 = 6144 байт = 6 Кбайт.
Перо опустить , после этого он начнёт перемещатся выдовая чёткие контуры.
<em>// PascalABC.NET 3.3, сборка 1634 от 14.02.2018</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
var a:=ArrRandom(8,-12,12); a.Println;
Writeln('Среднее арифметическое: ',a.Average);
Writeln('Произведение отрицательных: ',
a.Where(t->t<0).Aggregate(1,(x,y)->x*y));
Writeln('Количество четных: ',a.Where(t->t.IsEven).Count);
Writeln('Максимальный элемент: ',a.Max)
end.
<u>Пример</u>
9 -10 -2 -4 11 8 1 0
Среднее арифметическое: 1.625
Произведение отрицательных: -80
Количество четных: 5
Максимальный элемент: 11
' Basic
' For ... Next
dim yi as integer
dim n as integer
dim z as double
dim sum as double
dim zi as double
sum = 0
print "Введите n: "
input n
for yi = 1 to n
if ((yi > 15) or (yi < 0)) then
z = 2
else
z = yi
end if
zi = (sqr(z)-z)*(sqr(z)-z)
sum = sum + zi
next
print "Сумма = ", sum;
'-----------------------------------------------------------
' While Wend
dim yi as integer
dim n as integer
dim z as double
dim sum as double
dim zi as double
sum = 0
yi = -1
print "Введите n: "
input n
while (yi < n)
if ((yi > 15) or (yi < 0)) then
z = 2
else
z = yi
end if
zi = (sqr(z)-z)*(sqr(z)-z)
sum = sum + zi
yi = yi + 1
wend
print "Сумма =", sum;
Ответ:
#include <iostream>
#include <conio.h>
#include <cstdlib>
#include <ctime>
using namespace std;
void Function()
{
int number;
srand(time(0));
cout << "Введите число" << endl;
for (;;)
{
cin >> number;
if (number == 0)
{
break;
}
for (;;)
{
int x = rand();
if (x < number)
{
cout << x << endl;
break;
}
}
}
}
int main()
{
setlocale(LC_ALL, "Russian");
Function();
_getch();
return 0;
}
Объяснение:
Подбирает каждай раз рандомное число , пока оно не станет меньше чем ввел пользователь. (Отрицательные числа не вводить, т.к rand генерирует только положительные, хотя можно и подшаманить чтобы генерировал отрицательные)