iv1as2
?>

Нарисуйте ориентированный граф (блок-схему) проверки учителем пачки тетрадей. в систему команд входит: проверить работу; взять тетрадь из пачки; выставить оценку; выяснить, остались ли ещё проверенные тетради.

Информатика

Ответы

dimaaristov

во

alenaya69918

const

 n = 25;

 

var

 a: array[1..n] of integer;

 k0, k, i, s: integer;

 p: real;

 

begin

 s := 0;

 p := 1;

 k := 0;

 k0 := 0;

 for i := 1 to n do

 begin

   a[i] := -n div 2 + random(n);

   Write(a[i]:4);

   if a[i] = 0 then

     inc(k0);

   if a[i] > 0 then

     s := s + a[i];

   if a[i] < 0 then

   begin

     p := p * a[i];

     inc(k);

   end;

 end;

 WriteLn;

 Writeln('Сумма: ', s);

 Writeln('Количество 0: ', k0);

 if k <> 0 then

   Writeln('Произведение: ', p)

 else

   Writeln('Нет таких чисел. ')

end.

Объяснение:

Кристина_Memmedov

ответ:#include <iostream>

using namespace std;

void myFunc(int k) {

bool flag = true;

for(int i=2; i<k; i++)

{

 if(k%i==0)

 {

  flag = false;

 }

 

}

if(flag==true)

{

 cout<<"Yes"<<endl;

}

else

{

 cout<<"No"<<endl;

}

}

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

int a;

cout<<"Input a: ";

cin>>a;

myFunc(a);

return 0;

}

Объяснение: Создаем функцию которая ничего не возвращает, она принимает аргумент К. Это и есть число какое будем вводить. Создаем буллевую переменную. Делаем цикл с числа 2. Т.к 1, 2 простые. Смысла проверять нет. Если остатка от деления числа К на І не будет - значит оно не простое. Далее проверяем наш flag, main думаю понятно

P.S: Если не там Yes или No просто поменяй их текст

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

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

Нарисуйте ориентированный граф (блок-схему) проверки учителем пачки тетрадей. в систему команд входит: проверить работу; взять тетрадь из пачки; выставить оценку; выяснить, остались ли ещё проверенные тетради.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

evg-martenyuk
Yevgenevna
Mukhina1811
maryshecka
Yanusik24
Серопян
preida-2
artmasterstyle
travkinadjey31
kolefe22171
ccc712835
filial2450
Zhanibekrva Kandaurova
Вячеславовна_Сагитович
Nastyakarysheva8750
▲