Геннадьевич-Тимофеева158
?>

Запишите оператор присваивания переменной x случайной величины в диапазоне от -17 до 25

Информатика

Ответы

verich
Randomize;
x:= random(44)-17;
muzeynizhn
//В Pascal ABC.NET
x:=random(-17,24);
rs90603607904
Первая программа:
program First_program;
var  i: longint;
begin  for i := 15 to 35 do   begin    if(i mod 2 = 0) then      write(i, ' ')  end;end.

Вторая программа:
program Second_program;
var  i, h, g: integer;  k: string;
begin  k := '';  for i := 1 to 20 do    if i mod 2 = 0 then      write(i, ' ');  writeln;  for i := 20 to 30 do    if odd(i) then      k := k + i + ',';  g := length(k);  for i := g downto g - 1 do    if (k[i] = ',') then      delete(k, i, 1);  write(k)end.

Третья программа:
program Third_program;
var  i, sum, proz: integer;
begin  sum := 0;  proz := 1;  for i := 1 to 10 do    if (i mod 2 = 0) then      sum := sum + i    else      proz := proz * i;  writeln(sum);  write(proz);end.

Четвертая программа:
program Fourth_program;
var  i: longint;  k: integer;
begin  k := 0;  for i := 10 to 99 do    if (i mod 2 = 0) and (i mod 3 = 0) then      k := k + i;  write(k)end.
Melnik Kaveshnikova1746
#include <stdlib.h> //Библиотека для рандома#include <ctime>
#define MAX_SIZE_M 10#define MAX_SIZE_N 10#define MAX_RAND 100#define MIN_RAND 1

void main(){    int a[MAX_SIZE_N][MAX_SIZE_N];// объявили массив     srand(time(NULL));    //Заполнение массива    for(int i = 0; i < MAX_SIZE_N; i++)       for (int j = 0; j < MAX_SIZE_M; j++)          a[i][j] = MIN_RAND + rand() % MAX_RAND;
   int sum = 0;    //Считаем сумму    for (int i = 0; i < MAX_SIZE_N; i++)       for (int j = 0; j < MAX_SIZE_M; j++)          if (a[i][j] % 2 == 1)          {            sum += a[i][j] * a[i][j];          } }

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Запишите оператор присваивания переменной x случайной величины в диапазоне от -17 до 25
Ваше имя (никнейм)*
Email*
Комментарий*