program xopow1; uses crt; var a, b, Sek: integer; begin writeln('Введите границы:'); repeat readln(a, b); until b >= a; clrscr; for a := a to b do begin Sek := a * 60; writeln(a, ' мин. = ', sek, ' сек.') end end.
2.
program xopow2; uses crt; Var z:integer; f,x,y:real; Begin clrscr; Writeln; X:=10000; Y:=(x/100)*10; for z:=1 to 7 do Begin X:=x+y; Writeln(Z,' -й день тренировок спортсмен пробежал ',X:3:2,' Км.'); End; Writeln('Нажмите Enter...'); Readln; end.
Если каждый месяц ( точнее первого числа каждого месяца от марта до декабря(*первого , то есть декабрь не будет посчитан, так как чтобы получить проценты за декабрь нужно подождать до января(опять же первого) но мы получим данные за ноябрь)) получать проценты вплоть до декабря, то получится сумма ≈1 171,7руб.
Вот данные для каждого месяца по отдельности(месяц будет указан как цифра(из-за большого остатка , будет сокращение до копеек):
program xopow1;
uses crt;
var
a, b, Sek: integer;
begin
writeln('Введите границы:');
repeat
readln(a, b);
until b >= a;
clrscr;
for a := a to b do
begin
Sek := a * 60;
writeln(a, ' мин. = ', sek, ' сек.')
end
end.
2.
program xopow2;
uses crt;
Var
z:integer;
f,x,y:real;
Begin
clrscr;
Writeln;
X:=10000;
Y:=(x/100)*10;
for z:=1 to 7 do
Begin
X:=x+y;
Writeln(Z,' -й день тренировок спортсмен пробежал ',X:3:2,' Км.');
End;
Writeln('Нажмите Enter...');
Readln;
end.
Если каждый месяц ( точнее первого числа каждого месяца от марта до декабря(*первого , то есть декабрь не будет посчитан, так как чтобы получить проценты за декабрь нужно подождать до января(опять же первого) но мы получим данные за ноябрь)) получать проценты вплоть до декабря, то получится сумма ≈1 171,7руб.
Вот данные для каждого месяца по отдельности(месяц будет указан как цифра(из-за большого остатка , будет сокращение до копеек):
Март(3) - 1000руб.
01.4- 1020 руб(за март%)
01.5- 1040,4 руб
01.6- 1061.20 руб
01.7- 1082.43 руб
01.8- 1104,08 руб
01.9- 1126,16 руб
01.10- 1148,69 руб
01.11- 1171,66 руб
01.12- 1 195,09 руб(за Ноябрь%)
Удачи °ω⁻