code. compile. run. debug. share.
{
Online Pascal Compiler.
Code, Compile, Run and Debug Pascal program online.
Write your code in this editor and press "Run" button to execute it.
}
program Hello;
var m,need_m,up:real;
i:integer;
begin
write('Введите массу нагрузки споcтсмена: ');
readln(m);
write('Введите ежемесячный прирост массы нагрузки споcтсмена (в%): ');
readln(up);
up:=up/100;
need_m:=2*m;
i:=0;
repeat
inc(i);
m:=m+up*m;
until m>=need_m;
writeln('На улучшение тела до требуемого уровня потребуется ',i,' недель :( ');
end.
Compiling Program...
Standard Input:
Interactive Console
Text
Program is not being debugged. Click "Debug" button to start program in debug mode.
| # | Function | File:Line |
|---|
| Variable | Value |
|---|
| Register | Value |
|---|
| Expression | Value |
|---|
| # | Description |
|---|