Var n,a,i,k:integer;
begin
write('n = ');
readln(n);
k:=0;
writeln('Вводите числа:');
for i:=1 to n do
begin
readln(a);
if a mod 4 = 0 then k:=k+1;
end;
writeln('k = ',k);
end.
Пример:
n = 5
Вводите числа:
15
24
73
48
94
k = 2
Язык СИ:
1.
#include<stdio.h>
#include<math.h>
int main(){
long double x,y;
scanf("%Lf%Lf",&x,&y);
printf("%s\n",sqrtl(x*x+y*y)<=2?"yes":"no");
return 0;
}
2.
#include<stdio.h>
#include<math.h>
int main(){
long double x,y;
scanf("%Lf%Lf",&x,&y);
printf("%s\n",-2<=x && x<=0 && -2<=y && y<=0?"yes":"no");
return 0;
}
<u>PascalABC.NET 3.4.0, сборка 1671 от 31.05.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
begin
var q:=new Queue<real>;
foreach var x in SeqRandomReal(11,-1,3) do
q.Enqueue(x);
q.Println; Println;
q.Enqueue(q.Where(t->t>0).Sum); // добавили сумму
q.Println; Println;
q.Dequeue; // удалили первый элемент
q.Println
end.
Var ar:array[1..100]of integer;
i,n:integer;
begin
read(n);
for i:=n downto 1 do
ar[i]:=i;
for i:=n downto 1 do
write(ar[i],' ');
end.
Для того, чтобы решить данную задачу, необходимо воспользоваться формулой N = 2^i, где N - максимальное количество цветов в палитре, а i - глубина цвета.
2^8 < 312 < 2^9
Если мы будем использовать глубину цвета равную 8 битам, то максимальное допустимое количество цветов в палитре будет равняться 256 (так как 2^8 = 256), что не удовлетворяет условиям задачи.
Значит, нам необходимо использовать глубину цвета равную 9 битам, так как при этом значении максимальное допустимое количество цветов в палитре будет равняться 512(так как 2^9 = 512), а значит для кодирования 312 цветов памяти хватит с избытком.
Ответ: 9