Если не тот язык, укажите какой нужен.
var a: integer;
f: real;
begin
write('Введите а: '); readln(a);
if(a <= 0) then f := sqr(a) + 4*a + 5
else f := 1 / (sqr(a) + 4*a + 5);
writeln('f(', a, ') = ', f);
end.
Я напишу это программу на языке С++
#include <iostream>
#include <cmath>
using namespace std;
int main() {
int n,i=1;
cin>>n;
while(pow(i,2)<=n) {
cout<<pow(i,2)<<" ";
i++; }
return 0;}
Program chik;
var a:array[1..1000]of integer;
var n,i:integer;
begin
read(n);
for i:=1 to n do
begin
read(a[i]);
end;
for i:=1 to n do
begin
if (i mod 2=0)then a[i]:=0;
end;
for i:=1 to n do
begin
write(a[i],' ');
end;
end.
кучу монет разделить на 2 кучи и взвесить их
если одна из них будет легче то ее еще раз поделить и так-взвесить
если одна куча легче другой значит и монета легче
100 байт + 10 бит = 101.25 байта (810 бит)
2 кб + 4 б= 2.004 кбайта (2004 байта)