bei07
?>

Какой почтовый адрес для вопросов от представителей прессы указал на своей личной странице автор ядра веб-браузера world wide web?

Информатика

Ответы

ivanova229
Функция isSevenHere возвращает истину, если в числе есть семерка, и ложь - если ее нет. В цикле for перебираем все значения от 1 до K (число, введенное с клавиатуры), и выводим на экран только те, где есть семерка.

Код программы:

function isSevenHere(number : integer) : boolean;var digit : integer;begin  Result := true;  while (number > 0) do  begin        digit := number mod 10;    if (digit = 7) then            exit;    number := number div 10;  end;  Result := false;end;
var i,k :integer;begin  write('Введите k: ');  readln(k);
  for i := 1 to k do    if (isSevenHere(i) = true) then      write(i,' ');end.
Найти и вывести на экран все целые числа из промежутка от 1 до k, в десятичной записи которых есть ц
uuks2012

#include <iostream>

int main() {

const int SIZE = 10;

bool isSence = false;

int sum = 0;

int count = 0;

int arr[SIZE];

for (int i = 0; i < SIZE; i++)

{

 arr[i] = rand() % 20 - 10; // "рандомно" заполняем массив от -10 до 10

 std::cout << arr[i] << "\t"; // выводим массив в консоль

 if (arr[i] >= 0)

  isSence = true;

}

for (int i = 0; i < SIZE; i++)

{

 if ((isSence) && (arr[i] > 0))

  sum += arr[i]; //sum = sum + arr[i];

  count++;

}

if (isSence)

 std::cout << "\nсреднее арифметическое положительных чисел = " << double(sum) / count << std::endl; // явное приведение типов

else

 std::cout << "\nВ массиве нету положительных чисел или нету нулей и/или отрицательных чисел" << std::endl;

return 0;

}

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

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

Какой почтовый адрес для вопросов от представителей прессы указал на своей личной странице автор ядра веб-браузера world wide web?
Ваше имя (никнейм)*
Email*
Комментарий*

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

АлександровнаАслан1571
Напишите ответ хоть на один вопрос , ​
miyulcha8077
misstimarina2016
aleksey7800
sergeystepanov231
korolev-comitet8825
Староческуль-Станиславовна
Чему равна основание 8-ричной системы счисления
aaazovcev
TSKaraulova
kirik197308
Пономаренко
ЕленаГерасимова
sveta073120
ВитальевичЕвгеньевич346
kazimov832