Задание по компьютерной схемотехнике и архитектуре компьютера. С решением

Function prime(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 t := true;
 d := 2;
 while t and (d*d <= x) do
   begin
   if x mod d = 0 then 
     t := false;
   d := d + 1
   end;
 prime := t
end;

function order(x:integer):boolean;
var
 t:boolean;
 d:integer;
begin
 d := -1;
 repeat
   t := x mod 10 > d;
   d := x mod 10;
   x := x div 10
 until not t or (x = 0);
 order := t
end;

var
 t:boolean;
 i,k,n:integer;
begin
 t := false;
 read(k,n);
 for i := k to n do
   if prime(i) then
   if order(i) then
     begin
     write(i,' ');
     t := true
     end;
 if not t then
   write(0)
end.

ответ:

#include "stdafx.h"

#include

using namespace std;

struct complex // структура "хранения" комплексного числа

{ float re; // действительная часть

float im; // мнимая часть

};

void print( char * txt, complex x) // вывод комплексного числа

{

printf("%s=(%f,%fi)", txt, x.re, x.im);

return;

};

complex new_complex(float a, float b) // задать значение комплексному числу

{ complex temp;

temp.re=a;

temp.im=b;

return temp;

};

complex plus_complex(complex a, complex b) // сложить два комплексных чисел

{ complex temp;

temp.re=a.re+b.re;

temp.im=a.im+b.im;

return temp;

}

int main() // простая тестовая программа

{

complex z;

printf( "vvedite re и im 1 chisla: ");

cin > > z.re > > z.im;

print( "z", z); printf("\n");

complex q;

printf( "vvedite re и im 2 chisla: ");

cin > > q.re > > q.im;

print("q", q); printf("\n");

complex sum;

sum=plus_complex(z,q);

print("q+z", sum); printf("\n");

return 0;

}

0