Блоксхемы!
хоть с 1 буду очень благодарна

Скопировать код в Dev C++ и запустить в компиляторном окне будут выведены значения.

Объяснение:

Dev C++

1) #include <iostream>

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

int main(int argc, char** argv) {

int x = 5, y = 10;

while(y<=10){

 if (x <= y){

  x = x + 1;

  y = y - 1;

 }

 else {

  x = x - 5;

  y = y + 5;

 }  

}

printf("X = %d", x);

printf("\nY = %d", y);

return 0;

}

2) #include <iostream>

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

int main(int argc, char** argv) {

int a = 2, b = 0;

while (a != 7){

 a = a + 1;

 b = b + a;

}

printf("a = %d", a);

printf("\nb = %d", b);

return 0;

}

3) #include <iostream>

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

int main(int argc, char** argv) {

int a = 56, b = 77;

while (a != b){

 if (a > b){

  a = a - b;

 }

 else {

  b = b - a;

 }

}

printf("a = %d", a);

printf("\nb = %d", b);

return 0;

}

4) #include <iostream>

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

int main(int argc, char** argv) {

int a = 6, b = 0;

while (a!=2){

 b = b + a;

 a = a - 1;

}

printf("a = %d", a);

printf("\nb = %d", b);

return 0;

}

5) #include <iostream>

#include <stdio.h>

#include <stdlib.h>

#include <math.h>

int main(int argc, char** argv) {

int a = 1, b = 0;

while (a != 1024){

 b = b + a;

 a = a * 2;

}

printf("a = %d", a);

printf("\nb = %d", b);

return 0;

}

290*39*67=757770 - всего символов

для кодирования  757770 символов потребуется   757770 байтов

757770байт < 1,44    мбайт

да, книга поместиться на дискетку

1

a)

program pr;

var

s: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

writeln('введите заданный символ');

readln (c);

for i: =1 to length(s) do if s[i]=c then writeln ('в строке найден заданный символ');

readln;

end.

б)

program pr;

var

s,n: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

writeln(n);

readln;

end.

в)

program pr;

var

s,n,f: string;

c: char;

i: integer;

begin

writeln('введите имя и фамилию в одной строке');

readln (s);

i: =1;

while s[i]< > ' ' do i: =i+1;

n: =copy(s,1,i-1);

f: =copy(s,i+1,length(s)-i+1);

writeln(n);

writeln(f);

readln;

end.

program pr;

var s: string;

begin

s: ='касіу ясь канюшыну';

delete (s,7,3);

insert ('слово которое хотите вставить',s,7);

writeln (s);

readln;

end.