Var mas: array [1..10] of integer;
k,i:integer;
begin
for i:=1 to 10 do
k:=0;
readln(mas[i]);
k:=k+mas[i];
writeln(mas[i] ,'+');
write(k);
end.
program summa;
var
i, n:integer;
s, k:real;
begin
writeln('введите число n=');
read(n);
s:= 0;
k := 0;
for i := 1 to n do
begin
k:= k + sin(i);
s:= s + 1/k;
end;
writeln('Сумма S= ',s:0:2);
readln;
end.
Var c:char; a,s,p,k:integer;
begin
readln(c);
a:=ord(c);
writeln('code = ',a);
s:=0; k:=0; p:=1;
while a>0 do
begin
s:=s+a mod 10;
p:=p*(a mod 10);
k:=k+1;
a:=a div 10;
end;
writeln('s = ',s,' p = ',p,' sr = ',s/k:5:2);
end.
Пример:
&
<span>code = 38
s = 11 p = 24 sr = 5.50</span>
Var
a,b,i,c: integer;
Begin
Write('Введите А ');
Readln(a);
Write('Введите B ');
Readln(b);
for i:= 1 to (b-a+1) do Begin
c:=c+a*a;
a:=a+1;
End;
End.
Если я правильно понял задание:
public static void main(String[] args){
Scanner input = new Scanner();
int n = input.nextInt();
float x = input.nextFloat();
long a;
for (int i = 0; i<n; ++i){
a = i + x;
}
System.out.println(a);
}