<span>=А1+А2 (арифмитическое сложение)</span>
Ответ:
var a:array [1..15] of integer ;
i,col:integer;
begin
for i:=1 to 15 do
begin
readln(a[i]);
if a[i]>200 then col:=col+1;
end;
writeln('Колічесто: ',col);
end.
Объяснение:
Я бы сделал так:
var a,a1,a2,a3,a4:integer;
begin
write ('Введите четырехзначное число: '); read (a);
a1:= a div 1000;
a2:= a div 100 mod 10;
a3:= a div 10 mod 10;
a4:= a mod 10;
writeln ('Первая цифра: ',a1);
writeln ('Вторая цифра: ',a2);
writeln ('Третья цифра: ',a3);
writeln ('Четвёртая цифра: ',a4);
<span>end.
<u>Этот вид более эстетичный</u> ;)
</span>
Общий объем памяти I = K * i
(K - кол-во пикселей, i - объем памяти на 1 пиксель/цвет или глубина цвета)
По формуле или
(N - кол-во цветов в палитре, i - глубина цвета)
Глубина цвета бит
Объем памяти K = 2048 * 1024 пикселей * 8 бит = 16777216 бит
16777216.0 бит = 2097152.0 байт = 2048.0 Кбайт = 2.0 Мбайт = 0.001953125 Гбайт
Кол-во изображений на флешке 4 / 0.001953125 = 2048 шт
<u>PascalABC.NET 3.3.5, сборка 1662 от 29.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var k:=ArrRandom(ReadInteger('n='),-50,50); k.Println;
var (u,j):=ReadInteger2('Введите u и j через пробел:');
Writeln('Cумма первых ',u,' элементов ',k.Take(u).Sum);
Writeln('Произведение последних ',j,' элементов ',
k.TakeLast(j).Aggregate(BigInteger(1),(p,q)->p*q));
end.
<u>Пример</u>
n= 20
39 -18 -16 5 -30 50 -10 -9 34 -33 31 -26 31 -29 8 48 38 37 32 22
Введите u и j через пробел: 12 13
Cумма первых 12 элементов 17
Произведение последних 13 элементов 2781117283830792192