Ответы
Ответ дал:
0
Var
A,B:integer;
S:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
S:=0;
For A:=A to B-1 do
S:=S+A;
WriteLn(S)
End.
Var
K,N,i:integer;
Begin
Write('K = ');
ReadLn(K);
N:=K+5;
i:=0;
While i<N do
Begin
i:=i+1;
Write(K);
End;
End.
A,B:integer;
S:real;
Begin
Write('A = ');ReadLn(A);
Write('B = ');ReadLn(B);
S:=0;
For A:=A to B-1 do
S:=S+A;
WriteLn(S)
End.
Var
K,N,i:integer;
Begin
Write('K = ');
ReadLn(K);
N:=K+5;
i:=0;
While i<N do
Begin
i:=i+1;
Write(K);
End;
End.
Вас заинтересует
1 год назад
1 год назад
6 лет назад
8 лет назад
8 лет назад