var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
Пишу на паскале
var cp:real;
i,k,sum:integer;
mass:array[1..4] of integer;
begin
for i:=1 to 4 do
begin
write('mass[',i,']= ');
read(mass[i]);
k:=k+1;
sum:=sum+mass[i];
end;
cp:=sum/k;
writeln('Среднее значение переменных равно ',cp);
end.
<span>
</span>
Если я правильно понял задание, то вот:
var y:real; n:integer;
begin
readln(n);
repeat
y:=y+1/n;
n:=n-1;
until n=0;
writeln(y);
end.
uses
SysUtils;
var
n,m,i:integer;
begin
readln(n);
m:=0;
for i := 1 to n-1 do
if m > n then break else
if (n mod i = 0) then m:=m+i;
if m=n then writeln('Yes') else
writeln('No');
end.
1.<span>Три базовых цвета- Red, Green, Blue. На каждый по два бита - получается по 4 бита градации на цвет. того 4*4*4= всего 64</span>