Спортсмен в первый день пробежал 8 км. каждый следующий день он увеличивал дневную норму на 10% от нормы предыдущего дня. определить, через сколько дней спортсмен пробежит суммарный путь 40 км. в pascal
Var a,s: real; i: integer; begin a:=8; s:=a; i:=1; repeat i:=i+1; a:=a*1.1; s:=s+a; until s>=40; writeln(i); // через геометрическую прогрессию // s:=ln(1.5)/ln(1.1); // if frac(s)>0 then s:=int(s)+1; // writeln(s); end.
Описывается список с полями согласно заданию type student = Record fam: String; inn: string; Year: integer; god_p: integer; kurs: 1..5; gruppa: string; b1, b2, b3: 1..5; End;
Объявляются необходимые переменные и массив с типом записи var spisok: Array [1..N] Of student; b, a: string; i, j, k1: Integer; И заполняется от 1 до N (N=5 установлена константа) for i := 1 To N Do // идем от 1 до N и заполняем список with spisok[i] Do begin Writeln('Введите фамилию');Readln(fam); {} end; Потом обрабатывается согласно заданию по вариантам Скорее всего, что-то типо сортировки по году рождения, самых молодых пихают в начало.(глупо. можно было не городить такой кусок кода, а уместить все в один цикл с проверкой и выводом ИМХО) Затем выводится 3 фамилии самых молодых
for i := 1 to 3 do begin write(spisok[i].fam); writeln; end;
Program z1; Uses Crt; Var z:integer; Begin ClrScr; writeln('1*2=?'); readln(z); if z=2 then writeln('Верно!') else writeln('Не верно! 1*2=2'); writeln('2*3=?'); readln(z); if z=6 then writeln('Верно!') else writeln('Не верно! 2*3=6'); writeln('3*6=?'); readln(z); if z=18 then writeln('Верно!') else writeln('Не верно! 3*6=18'); writeln('4*7=?'); readln(z); if z=28 then writeln('Верно!') else writeln('Не верно! 4*7=28'); writeln('5*9=?'); readln(z); if z=45 then writeln('Верно!') else writeln('Не верно! 5*9=45'); writeln('6*4=?'); readln(z); if z=24 then writeln('Верно!') else writeln('Не верно! 6*4=24'); writeln('7*7=?'); readln(z); if z=49 then writeln('Верно!') else writeln('Не верно! 7*7=49'); writeln ('8*6=?'); readln(z); if z=48 then writeln('Верно!') else writeln('Не верно! 8*6=48'); writeln('9*4=?'); readln(z); if z=36 then writeln('Верно!') else writeln('Не верно! 9*4=36'); writeln('10*8=?'); readln(z); if z=80 then writeln('Верно!') else writeln('Не верно! 10*8=80'); readln; end.
S,a:real;
k:integer;
Begin
a:=8;
k:=0;
Repeat
k:=k+1;
S:=S+a;
a:=a*1.1;
Until S>=40;
WriteLn('k = ',k)
End.