№1
Program anton4nk;
uses crt;
var a,b,c:real;
begin
clrscr;
writeln(' Введите в последовательности A, B, C');
readln(a,b,c);
writeln(b+sqrt(sqr(b)+4*a*c)/2*a);
end.
______________________________________
№2
Program anton4nk;
uses crt;
var a,b,c,d:real;
begin
clrscr;
writeln('Введите в последовательности A, B, C, D');
readln(a,b,c,d);
writeln((a/c)*(b/d)-(a*b-c)/(c*d));
end.
______________________________________
Program klubnika
<span>var a,b : integer; </span>
<span>begin </span>
<span>writeln('введите общее количество клубники'); </span>
<span>readln(a); </span>
<span>writeln('введите количество клубники, которое собрала Вера'); </span>
<span>readln(b); </span>
<span>if a-b > b then writeln('Валя собрала больше клубники') </span>
<span>else if a-b < b then writeln('Вера собрала больше клубники') </span>
<span>else writeln('клубники было собрано поровну');</span>
Физика-5+4+4+5=18:4=4,5
Химия-3+4+3+4=14:4=3,5
Алгебра-4+4+3+4=15:4=3,75
Геометрия-4+3+3+3=13:4=3,25
Если надо округлять:
Физика:5
Химия:4
Алгебра:4
Геометрия:3
Var A, I, O: Integer;
Begin
ReadLn(A);
For I:=100 to 999 do Begin
If I div 100 = A Then
O:=O+1;
if (I div 10)-(I div 100) = A then
O:=O+1;
If I - ((I div 10)*10) = A Then
O:=O+1;
End;
WriteLn(O);
End.