Var a:array[1..50] of integerl;
sr:real;
kol,i:integer;
begin
for i:=1 to 50 do
readln(a[i]);
kol:=0;
sr:=0;
i:=5;
while i<=50 do
begin
sr:=sr+a[i];
kol:=kol+1;
i:=i+5;
end;
writeln(sr/kol);
end.
Program pr;
var norma,total:real;day:integer;
begin
norma:=10;
day:=0;
repeat
day:=day+1;
writeln('День: ',day);
writeln('Норма: ',norma:0:1,' км');
writeln();
total:=total+norma;
norma:=norma*1.1;
until day=7;
writeln();
writeln('Всего: ',total:0:1);
end.
А язык какой?
Python:
sum([i for i in range(5,16)])
range в этом ЯП идет как [x, y) математически, потому 16, чтобы включить 15
Задача 1.1. Находим количество точек (пикселей) в кадре 640×480 = 3072002. Находим размер палитры 250×1024×8/307200 = 6 бит (отбрасываем дробную часть после деления)3. Количество цветов в палитре не может превышать 2⁶ = 64
Пояснение: 250 Кбайт = 250×1024 байт = 250×1024×8 бит.
Задача 2.1. Находим объем исходной палитры256 = 2⁸, поэтому объем составит 8 бит2. Находим объем новой палитры2=2¹, поэтому объем составит 1 бит.3. Находим, во сколько раз уменьшится объем файла8/1=8 - в восемь раз.4. Если первоначальный объем был Х, то новый станет Х/8. Уменьшение объема составит X-X/8 = 7X/8 и это равно 7 Кбайт.Тогда 7Х=7*8 Кбайт, откуда Х=8 Кбайт
Ответ:
форме, площадью, цветом ,