1)дано натуральное число n и действительное х. вычислите x(в n степени) где n меняется от 1 до n 2)дано натуральное число n. вычислить 2(в n cтепени), где n меняется от 1 до n

1: var n: integer;     x: real; begin  writeln ('введите число x'); readln(x);   writeln ('введите максимальную степень числа x'); readln(n);     for n: =1 to n do      begin        writeln ('x= ',exp(ln(x)*n));       end; end.2 : const x=2; var n: integer;       begin  writeln ('введите максимальную степень числа 2'); readln(n);     for n: =1 to n do      begin        writeln ('x= ',exp(ln(x)*n));       end; end.просто интересно, почему кто-то выполняет такие   летом? о_о

#include < iostream> #include < windows.h> using namespace std; int main() { setconsolecp(1251); setconsoleoutputcp(1251); char s[128]; size_t i = 1; int c=0; cin.getline(s, 128); s[strlen(s)] = ' '; for(size_t i=1; i< strlen(s); i++) if (s[i] == 'а'  & & s[i - 1]! =' ' & & (s[i + 1] == ' ' || s[i + 1] == ',' || s[i + 1] == '.' || s[i + 1] == '! ' || s[i + 1] == '? ')) c++; cout < < c < < endl; system("pause");     return 0; } писал на visual studio 2017

Вобработчике  onclick   кнопки "" пишем:       if  opendialog1.execute  then             memo1.lines.loadfromfile(opendialog1.filename); в результате выбора файла свойство  filename   компонента  opendialog   получает значение полного адреса выбранного файла, который мы и вставляем в функцию загрузки файла компонента  memo. всё это хорошо, но только в данном случае, когда записанное выражение записывается в одну строку. если программа использует несколько раз выражение  opendialog1.filename, то писать руками устанешь. в  delphi   для такого случая есть так называемый "оператор присоединения"  with. он используется для любых объектов, имеющих длинный "хвост" из свойств, которые приходится записывать многократно. вот как он записывается:       with  объект  do           begin           end; свойства объекта внутри логических скобок  begin/end   можно записывать непосредственно. допускается перечислять через запятую несколько объектов. естественно, в случае, когда внутри скобок находится один оператор, они необязательны. перепишем фрагмент загрузки файла с использованием оператора присоединения:       with  opendialog1, memo1  do             if  execute  then                   lines.loadfromfile(filename); запись получается более компактной. так как свойства компонентов  opendialog   и  savedialog   одинаковы, сохранение текста выглядит абсолютно аналогично. создаём обработчик нажатия кнопки "сохранить " и пишем:       with  savedialog1, memo1  do             if  execute  then                 begin                       lines.savetofile(filename);                       opendialog1.filename: =filename;   // чтобы исправленный текст не затёр источник                 end; наконец, для кнопки "сохранить" пишем:       memo1.lines.savetofile(opendialog1.filename);   // сохраняем туда, откуда считали