Каппа и её слоники 0имя входного файластандартный вводимя выходного файластандартный выводограничение по времени2 секундыограничение по памяти64 мегабайтакаппа любит слоников. дома у каппы всегда много слоников. но иногда слоники убегают. куда и почему каппа не знает : ( . нужно в очередной раз пересчитать всех слоников, чтобы знать сколько убежали.формат входных данныхдано целое положительное число n - количество слоников (1 ≤ n ≤ 1000)формат выходных данныхвыведите n строк вида “ слоник” и в конце фразу “нет больше слоников”примерывходные данные выходные данные51 слоник2 слоник3 слоник4 слоник5 слоникнет больше слониковотправить на проверку!

ответ:

var  

  n, i: integer;

begin

  readln(n);

  for i : = 0 to n do

  begin

    writelnformat('{0} слоник',i+1);

  end;

end.

объяснение:

//pascal abc.net v3.0 сборка 1111 const   n=30;   type   tys=array[1..n] of string; var   ars: tys;   i,j: integer;   s: string;   procedure sorts(var ars: tys; n1: integer); var   i,j: integer;   c: string; begin   for i: =1 to n1-1 do   for j: =i to n1 do     if ars[i]> ars[j] then     begin       c: =ars[i];       ars[i]: =ars[j];       ars[j]: =c;     end; end;     begin   readln(s);   j: =1;   while pos(' ',s)< > 0 do   begin     for i: =1 to pos(' ',s) do     ars[j]: =ars[j]+s[i];     delete(s,1,pos(' ',s));     inc(j);   end;   ars[j]: =s;   sorts(ars,j+1);   writeln('result=');   for i: =1 to n do  writeln(ars[i]); end. пример ввода: панамка пена пенал паста параллелепипед подражатель пинать явный полиморфизм паскаль тетрадь разум пример вывода: панамка  параллелепипед  паскаль  паста  пена  пенал  пинать  подражатель  полиморфизм    разумтетрадь  явный 

1

#include< iostream> #include< ctime>

using namespace std;

int main(){ srand(time(null)); int n, min = 10, range = 30; int *arr; cout < < "enter size of arr(enter n) : "; cin > > n; arr = new int [n]; for(int i = 1; i < = n; i++) arr[i] = rand()%(range + 1) + min; cout < < "arr : " < < endl; for(int i = 1; i < = n; i++) cout < < arr[i] < < " " ; cout < < endl; for(int i = 1; i < = n; i++){ if(arr[i] > 25) arr[i] = i*i; else arr[i] = arr[i] + 5; } cout < < "newarr : " < < endl; for(int i = 1; i < = n; i++) cout < < arr[i] < < " " ; }

 

 

 

2

 

#include< iostream>

using namespace std; int main(){ int n; int *arr; cout < < "enter size of arr(enter n) : "; cin > > n; arr = new int [n]; for(int i = 1; i < = n; i++) cin > > arr[i];

int temp = arr[1]; int templ = arr[n];

arr[1] = arr[2]; arr[2] = temp; arr[n] = arr[n-1]; arr[n-1] = templ; cout < < "new arr : "; for(int i = 1; i < = n; i++) cout < < arr[i] < < " " ; }