var n:integer;
function f(x:integer):real;
begin
if x=1 then f:=1 else f:=x+f(x-1);
end;
begin
write('Введите число N ');
readln(n);
write('сумма равна ',f(n));
end.
лови бро затупил
7 937 082 20 07 киви
Program n1;
var a,b: integer;
begin
readln(a,b);
writeln('срзнач: ',(a+b)/2);
write('сргеом: ',sqrt(a*b));
end.
Пишу ответ на С++ и QBasic, если у Вас другой язык, то просто измените синтаксис:
1) min=10000;
number=0;
for (int i=0;i<5;i++)
{
if A[i]<min;
{
min=a[i];
number = i;
}
}
2)
<span>DECLARE FUNCTION f! (x!)
CLS INPUT "[A; B] = "; A, B
INPUT "SHAG H = "; n
FOR x = A TO B STEP n
n = n + 1
IF n MOD 20 = 0 THEN
PRINT "PRESS ENTER"
DO: LOOP UNTIL INKEY$ <> ""
CLS
ELSE
IF ABS(x) < 1 THEN
PRINT USING "X = ###.###"; x;
PRINT " Y = ---"
ELSE
PRINT USING "X = ###.### Y = ###.###"; x; f(x)
END IF
END IF
NEXT
END
FUNCTION f (x)
IF ABS(x) <= 3 THEN
IF ABS(x) >= -3 THEN f = x
ELSE
f = 1 / (x*x) END IF
END <span>FUNCTION</span></span>
почему бы тебе не закинуть все в одно задание?)
не первый раз тебе пишу уже)
program p_4;
var
i, n, count: word;
begin
readln(n);
count := 0;
for i := 1 to n do begin
if n mod i = 0 then inc(count)
end;
writeln(count)
end.