Вот шаблон рисунка. А дальше похоже у вас в инструкции все сказанно. Это надо делать в Power Point
Ненужную надпись можно закрыть белым фоном или прямоугольником
#include <stdio.h>
#include <stdlib.h>
#include <conio.h>
#include <math.h>
int main()
{
int x, y;
printf("\n Vvedite X and Y: ");
scanf("\%d" "\%d", &x, &y);
if (x < y) printf("\n x = \%d, y = \%d", (x + y)/2, 2 * x * y);
else printf("\n x = \%d, y = \%d", 2 * x * y, (x + y)/2);
printf("\n\n <span><span>to continue</span><span>press</span></span>... ");
getch( );
return 0;
}
1)Это с помощью while
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
while i<p do
begin
c:=c * a;
inc(i);
end;
writeln(c);
readln;
end.
2) Это с помощью repeat
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1; i:=0;
repeat
c:=c * a;
inc(i);
until i=p;
writeln(c);
readln;
end.
3) Это с помощью for
var a,p,i,c:integer;
begin
readln(a);
readln(p);
c:=1;
for i:=1 to p do
c:=c * a;
writeln(c);
readln;
end.
Program n1;
const n = 6;
var a : array[1..n] of integer;
i, max, min, temp : integer;
begin
for i := 1 to n do readln(a[i]);
min := 1;
max := 1;
for i := 1 to n do
begin
if a[i] > a[max] then max := i;
if a[i] < a[min] then min := i;
end;
temp := a[max];
a[max] := a[min];
a[min] := temp;
for i := 1 to n do write(a[i],' ');
end.