Вывести на экран 100 пронумерованных имен. пр.: 1)маша 2)маша )маша c циклом for.

Var x:string; i:integer;begin writeln('Введите имя'); readln(x); for i:=1 to 100 do begin  write(i);  write(')');  write(x);  writeln(); end; end.

#include <iostream>

using namespace std;

int main()

{

   int number, max_1, max_2;

   cin >> number;

   max_1 = number;

   while (number != 0)

   {

       cin >> number;

       if (number > max_1)

       {

           max_2 = max_1;

           max_1 = number;

       }

   }

   cout << max_1 << " " << max_2;

}

Объяснение:

Последовательность заканчивается нулём

#include <iostream> // Библиотека ввода - вывода

using namespace std; // Пространство имён

int main()

{

   int number, max_1, max_2; // Создание целочисленных переменных:

number - вводимые числа;max_1 - первый максимум;max_2 - второй максимум.

   cin >> number; // Ввод числа с клавиатуры

   max_1 = number; // Возьмём, что первый максимум = первому числу

   while (number != 0) // Пока значение переменной number ≠ 0

   {

       cin >> number; // Ввод числа с клавиатуры

       if (number > max_1) // Если значение переменной number > значения переменной max_1

       {

           max_2 = max_1; // Второй максимум = первый максимум

           max_1 = number; // Первый максимум = переменной number

       }

   }

   cout << max_1 << " " << max_2; // Вывод ответа через пробел

}

Program kvur;
var
x1,x2,d,e,f, a, b, c: real;
begin
writeln('Решение квадратного уравнения(ax^2+bx+c=0).');
write('Введите a: ');
readln(a);
write('Введите b: ');
readln(b);
write('Введите c: ');
readln(c);
d:=sqr(b)-4*a*c;
writeln('вы ввели:');
writeln('a= ',a:6:2);
writeln('b= ',b:6:2);
writeln('c= ',c:6:2);
writeln('D=b*b-4*a*c=',d:6:2);
if (d>=0)
then begin
e:= (-b/(2*a));
f:= (sqrt(d)/(2*a));
x1:= (e+f);
x2:= (e-f);
writeln('D>= 0, значит корни действительные: ');
writeln('x1= ',x1:6:2);
writeln('x2= ',x2:6:2);
end;
if(d<0) then begin
e:= (-b/(2*a));
f:= (sqrt(-d)/(2*a));
x1:= (e+f);
x2:= (e-f);
writeln(' D<0, значит корни комплексные: ');
writeln('x1= ', e:6:2, ' + ', f:6:2, 'i');
writeln('x2= ', e:6:2, ' - ', f:6:2, 'i');
end;
end.