После прочтения теоритической части по теме "Программирование циклов с заданным условием продолжения работы" рассмотрите блок-схемы 1 и 2.

На блок-схему 1 написана программа на языке Паскаль.

program a_1;
var x, y: integer;
begin
writeln('введите два числа: x и y');
readln(x, y);
while (x>=1) and (y>=1) do
begin
x:=x div y;
y:=y-2;
end;
writeln (x);
writeln (y);
end.

Задания:

1. Набирите эту программу с программы Pascal ABC и узучите ответы.

2. Рассмотрите блок-схему 2 и напишите программу используя Pascal ABC.

3. Что будет выдавать программа, если при вводе х=6, y=8.

4. Что будет выдавать программа, если при вводе х=,1 y=0.

ответы записывайте через пробел.

Первая задачка:

#include "stdio.h"

#include "math.h"

#include <locale.h>

int main() {

int x,pr=1;

char* locale = setlocale(LC_ALL, "");

printf("Вводите числа, чтобы окончить последовательность введите: 0\n");

do {

 scanf_s("%d", &x);

 if (x%2!=0 && x < 16 & x !=0)

 pr *= x;

} while (x != 0);

printf("%d", pr);

return 0;

}

Вторая задачка:

#include "stdio.h"

#include "math.h"

#include <locale.h>

int main() {

int a100,k=1, a1 = 5, d = 4,n=100,s=0;

a100 = a1 + d * (n - 1);

printf("%d", a100);

printf("\n");

s = ((a1 + a100) / 2) * n;

printf("%d", s);

return 0;

}

Первая задачка:

#include <iostream>

#include <ctime>

using namespace std;

int main() {

setlocale(LC_ALL, "rus");

srand(time(NULL));

int x,sr1,sr2,sr=0;

for (int i = 0; i < 3; i++) {

 for (int i = 0; i < 10; i++) {

  x = 1 + rand() % 10;

  sr += x;

  cout << x << " ";

 }

 cout << endl;

 cout << "Среднее арифметическое этой последовательности: " << sr / 10;

 cout << endl;

}

return 0;

}

Вторая задачка:

#include <iostream>

#include "math.h"

using namespace std;

int main() {

int n;

double s=0,x;

cin >> n >> x;

for (int i = 1; i <= n; i++) {

 s += sin(pow(x, i));

}

cout << s;

return 0;

}