Учимся делать презентации, подскажите интересную рассматривать и фильмы и города и актеров.

Водопады попробуйте.

Var a,b,c,d,x: real; begin         writeln('введите a,b,c');         readln( a,b,c );         d: =sqr(b)-4*a*c;         if d< 0 then begin              writeln('действительных корней нет');         end else if d=0 then begin               x: =(-b)/2*a;               writeln('корень уравнения: ',x);         end else begin              x: =(-b+sqrt(d))/2*a;               writeln('1-й корень уравнения: ',x);               x: =(-b-sqrt(d))/2*a;               writeln('2-й корень уравнения: ',x);         end end.

//gnu c++ 11 #include < iostream> using namespace std; void while3 (int n, int k, int & quit, int & modul) { //quit - частное, modul - остаток quit=0; modul=0;   while (n> =k) {quit++; n-=k; } modul=n; } int   while9 (int n) { int k=1;   while (3*k< n) k++; return k; } int sum (int n){if (n==1) return 1; else return n+sum(n-1); } //немного рекурсии void while11 (int n, int & k, int & s) { k=1; s=1;   while (sum(k)< n) k++; s=sum(k); } int main () { //пиши функцию, задавай параметры return 0; }