1)
var
i,n:integer;
s:real;
begin
readln(n);
for i:=1 to n do
s:=s+sqrt(i);
writeln('S: ',s:4:2);
end.
2)
var
i,n:integer;
s,x:real;
begin
writeln('n, x ?');
readln(n);readln(x);
for i:=1 to n do
if x<>0 then
begin
if x>0 then
s:=s+exp(ln(sin(x)*i))
else
s:=s-exp(ln(sin(x)*i))
end;
writeln(s:4:2);
<span>end.</span>
1) c++
#include <iostream>
#include <cstdio>
using namespace std;
int cnt;
int main(){
freopen ("in.txt", "r", stdin);
freopen ("out.txt", "w", stdout);
for (int i = 0; i < 1000; i++)
if (i % 2 == 0 && i / 10 != 0)
cnt++;
cout << cnt;
return 0;
}
Var i,b,c:integer;
begin
for i:=1 to 10 do begin
readln(b);
if (b>10) and (b<15) then c:=c+b;
end;
writeln(c);
<span>end.</span>
В 12 под б) 0 (не даёт прикрепить больше двух)
1*10000+4*1000+4*100+3*10+8
Если я правильно поняла задание.