Program zadacha1;
uses crt;
var s, c, i, k, n: integer;
begin
clrscr;
repeat write ('vvedite k, n: ');
readln (k, n) until k<n;
s:=0;
for i:=k to n do begin
c:=sqr(i);
s:=s+c;
end;
writeln (s);
readkey;
<span>end.
program zadacha2;
uses crt;
var n, k, i: integer;
begin
clrscr;
repeat write ('vvedite k, n: ');
readln (k, n) until n>0;
for i:=1 to n do
writeln (k);
readkey;
end.
program zadacha3;
uses crt;
var n, c, i, count1, count2, count3: integer;
begin
clrscr;
write ('vvedite n: ');
readln (n);
count1:=0;
count2:=0;
count3:=0;
for i:=1 to n do begin
write ('vvedite chislo: ');
readln (c);
if c>0 then count1:=count1+1
else if c<0 then count2:=count2+1
else count3:=count3+1;
end;
writeln ('kolichestvo chisel>0 - ', count1);
</span><span>writeln ('kolichestvo chisel<0 - ', count2);
</span><span>writeln ('kolichestvo chisel=0 - ', count3);
</span>readkey;
end.
Мне кажется, что свидетельство о рождении.
Поскольку это официальный документ.
Попробуй через дерево из каждого в каждый, а потом посчитай сколько будет ветвей, это и будет твоим ответом!
//1
var x: real;
begin
write('x = ');
readln(x);
writeln(abs(10 - sqrt(1 + x * x)));
end.
//2
begin
randomize;
writeln(random(15) + 21);
end.
//3
var a, b: real;
begin
write(' Катет a = ');
readln(a);
write(' Катет b = ');
readln(b);
writeln(' Гипотенуза = ', sqrt(a * a + b * b));
end.
