Var a,b,c:integer; q:real; Begin Writeln ('a*x^2+b*x+c'); Write('Введите A: '); readln(a); Write('Введите B: '); readln(b); Write('Введите C: '); readln(c); q:=b*b-4*a*c; if q>0 then writeln ('2 корня'); if q=0 then writeln ('1 корень'); if q<0 then writeln ('0 корней'); 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.
a,b,c:integer;
q:real;
Begin
Writeln ('a*x^2+b*x+c');
Write('Введите A: '); readln(a);
Write('Введите B: '); readln(b);
Write('Введите C: '); readln(c);
q:=b*b-4*a*c;
if q>0 then writeln ('2 корня');
if q=0 then writeln ('1 корень');
if q<0 then writeln ('0 корней');
End.