ПО ИНФОРМАТИКЕ
Построить все 4 фигуры в одной программе, используя команду WHILE
Все размеры выбираются на ваше усмотрение.​

#include <stdio.h>
#include <iostream>
#include <malloc.h>
const int N = 10;
int main()
{
setlocale(LC_ALL, "RUS");
int i, j=0, n=0;
int array[N];
int *a;
puts("Исходный массив:");
for (i=0; i<N; i++) {
printf("Введите %d элемент:", i);
scanf("%d", &array[i]);
}
system("cls");
puts("Исходный массив:");
for (i=0; i<N; i++) {
printf("%d ", array[i]);
}
printf("\n");
for (i=0; i<N; i++)
if (array[i] == 0)
n++;
printf("Новый массив:\n");
a = (int *)malloc(n*sizeof(int));
for (i=0; i<N; i++)
  if (array[i] == 0) {
    a[j] = i;
    printf("%d ", a[j]);
    j++;
  }
free(a);
printf("\n");
system("pause");
return 0;
}

Тестовое решение:
Исходный массив:
5 0 3 6 0 0 2 1 0 5
Новый массив:
1 4 5 8
Для продолжения нажмите любую клавишу . . .

В PascalABC.Net
var
  x:real;
begin
  Writeln('  x      y');
  x:=-1;
  while x<=1 do
  begin Writeln(x:4:1,10-cos(Pi*x):10:5); x:=x+0.1 end
end.

Результат выполнения программы:
  x      y
-1.0  11.00000
-0.9  10.95106
-0.8  10.80902
-0.7  10.58779
-0.6  10.30902
-0.5  10.00000
-0.4   9.69098
-0.3   9.41221
-0.2   9.19098
-0.1   9.04894
 0.0   9.00000
 0.1   9.04894
 0.2   9.19098
 0.3   9.41221
 0.4   9.69098
 0.5  10.00000
 0.6  10.30902
 0.7  10.58779
 0.8  10.80902
 0.9  10.95106
 1.0  11.00000

Замечание: В PascalABC константа Pi предопределена. В других версиях, если транслятор напишет сообщение о том, что переменная Pi не описана, в начале программы добавьте const Pi=3.14159265;