Помогите решить! Паскаль , через оператор While!!!
Answers & Comments
Ленгит
Var i,n:integer; s,k:real; begin writeln('Введите количество дней: '); readln(n); k:=10; i:=1; s:=0; while i<=n do begin s:=s+k; k:=k*1.1; i:=i+1; end; writeln('Спортсмен пробежал: ',s:5:2); readln; end.
var i:integer; s,k,a,b,sum,p:real; begin writeln('Стипендия студента: '); readln(a); writeln('Расходы студента: '); readln(b); k:=b; i:=1; s:=0; while i<=10 do begin s:=s+k; k:=k*1.03; i:=i+1; end; sum:=10*a; p:=s-sum; writeln('Нужно попросить у родителей: ',p:5:2); readln; end.
Answers & Comments
s,k:real;
begin
writeln('Введите количество дней: ');
readln(n);
k:=10;
i:=1;
s:=0;
while i<=n do
begin
s:=s+k;
k:=k*1.1;
i:=i+1;
end;
writeln('Спортсмен пробежал: ',s:5:2);
readln;
end.
var i:integer;
s,k,a,b,sum,p:real;
begin
writeln('Стипендия студента: ');
readln(a);
writeln('Расходы студента: ');
readln(b);
k:=b;
i:=1;
s:=0;
while i<=10 do
begin
s:=s+k;
k:=k*1.03;
i:=i+1;
end;
sum:=10*a;
p:=s-sum;
writeln('Нужно попросить у родителей: ',p:5:2);
readln;
end.