var x,y: real;
begin
readln(x);
if x>8 then y:=x/4 else y:=x*5;
writeln(y);
end.
Var p, q: longint;
n, i, j, c: integer;
begin
// 1
write('n=');readln(n);
for i := 1 to n do begin
q := 1;
for j := 1 to i do q := q * i;
p := p + q;
end;
writeln ('Значение = ', p);
// 2
write('Число годовых оценок=');readln(n);
p:=0;
for i := 1 to n do begin
write('оценка: '); readln(c);
if c = 5 then p := p + 1
else if c = 2 then p := - 1;
end;
writeln(p > 0);
// 3
n := 20; p := MaxInt;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c < p then p := c;
end;
writeln('Минимальная высота: ', p);
//4
n := 20; p := -1;
for i := 1 to n do begin
write('Введите высоту здания ', i, ': ');
readln(c);
if c > p then p := c;
end;
writeln('Максимальное значение высоты: ', p);
<span>end.</span>
50, если применять способ хранения «бит на пиксель».
Является берестяная грамота
Int main()
{
double n, m, s;
setlocale (LC_ALL, "rus_rus.1251");
m=0;
n=1;
do
{
s=cos(n)/sqrt((2*n*n-1)*(n*n+1));
m+=s;
n++;
}
while (n<41);
cout << "Сумма чисел от 1 до 40, заданная как cos(n)/sqrt((2*n*n-1)*(n*n+1)) = "<< m;
return 0;
}
Результат:
<span>Сумма чисел от 1 до 40, заданная как cos(n)/sqrt((2*n*n-1)*(n*n+1)) = 0.234638</span>