Задание N°1. Соединение слов (конкатенация)* Во входном файле (input. txt) два слова из латинских букв записаны в разных строках. Прочитайте эти два слова во входном файле и объедините их и запишите во выходной файл (output. txt). input. txt output. txt Dragon Dragonfly Fly Air Airplane Plane Задание N°2. Определение нечетных чисел** Задан одномерный массив AIN] (1:Ns99, ai «1000). Напишите выходной файл, содержащий все нечетные числа этого массива. input. txt output. txt 1 8 27 53 689 17 14 27 53 689 1452 4217

var a: array [1..10] of integer;

min,max,i,c,b: integer;

begin

  read(c,b);

  randomize;

  for i : = 1 to 10 do

        a[i]: = random(b) -c+1;

  min: =1;

  max: =1;

  for i: = 1 to 10 do

  begin

        if a[min]> a[i] then min: =i;

        if a[max]< a[i] then max: =i;

  end;

  writeln(a[min], a[max]);

end.

1)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =70; r: =25; for i : = 1 to 7 do circle(x,y+i*60,r); end.

2)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =20; x: =20; r: =30; for i : = 1 to 5 do circle(x+i*70,y+i*70,r); end.

3)

uses graphabc; begin window.title : = 'circle'; var x,y,r,i: integer; brush.color : = clgreen; y: =70; x: =30; r: =60; for i : = 1 to 5 do circle(x+i*60,y,r); end.

универсальное

var i,n,x,y: integer;

begin

  read(x,n);

  for i : = 1 to n do

      y: = y*x;

  writeln(y);

end.

частные

y=x*x | x^2

y=y*y | x^4

y=y*y | x^8

a=x*x

y=a*a

y=y*y

y=y*a = x^10

y=x*x

y=y*y

y=y*y

y=y*y = x^16

y=y/x = x^15

ответ: солдатика потерял никита.