Using System;
public class Test
{
public static void Main()
{
double a, b, x, p=1;
int k=0;
Console.Write("a = ");
a = double.Parse(Console.ReadLine());
Console.Write("b = ");
b = double.Parse(Console.ReadLine());
for (int i=1; i <= 8; i++) {
x = double.Parse(Console.ReadLine());
if ((x>=a)&&(x<=b)){
k++; p*=x;
}
}
Console.WriteLine("k = {0} p = {1}", k,p);
Console.ReadKey();
}
}
Пример:
a = 3
b = 8
7
9
2
0
6
4
3
5
k = 5 p = 2520
Uses crt;
var summa, raz,st,storona1,storona2:real;
begin
ClrScr;
writeln("Введите сумму двух чисел");
readln(summa);
writeln("Введите во сколько раз одно больше другого");
readln(raz);
st:=summa/(raz+1);
storona1:=st;
storona2:=st*raz;
write("1 число-", storona1:7:2,"ед.");
<h3>PascalABC.NET 3.4.2, сборка 1837 от 11.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
ReadlnString.MatchValues('[Нн]е').Count.Println
end.
1.
1500 Кбайт = 1500*1024 байт
Память для 1 пикселя:
1500*1024/(840*640) ≈ 2,8 байт ≈ 2 байта (округляем в меньшую сторону) = 16 бит
Количество цветов в палитре = 2^16 = 65536
2.
При использовании 32-цветной палитры для хранения 1 точки необходимо log(2)32 = 5 бит
Для всего изображения:
64*256*5 бит = 64*256*5/8 байт = 10240 байт = 10240/1024 Кбайт = 10 Кбайт