М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
Хурем
Хурем
15.02.2023 11:43 •  Информатика

C# ПРОГРАММА,PLS. формирование текстового файла, записав в него 20 случайных чисел от
–100 до 100, по одному на строке. Используя созданный выше файл как входной, сформировать выходной
файл по указанному для каждого варианта правилу.. Записать выходной файл, добавив к каждому числу половину последнего отрицательного числа
файла.

👇
Ответ:
мяв1
мяв1
15.02.2023

#include <fstream>

#include <random>

 

using namespace std;

 

int main() {

 ofstream f_out("first.txt");

 

 random_device rd;

 

 mt19937 mt(rd());

 

 uniform_int_distribution<int> dist(-10, 10);

 

 int odd = -11;

 

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

   int rnd = dist(mt);

 

   if (odd == -11 && rnd % 2 != 0)

     odd = abs(rnd);

   

   f_out << rnd << '\n';

 }

 

 f_out.close();

 

 ifstream f_in("first.txt");

 ofstream s_out("second.txt");

 

 while (f_in.peek() != EOF) {

   int tmp;

   f_in >> tmp;

 

   s_out << tmp + odd << '\n';

 }

 

 f_in.close();

 s_out.close();

}

Объяснение:

4,7(99 оценок)
Открыть все ответы
Ответ:
Viviccompany
Viviccompany
15.02.2023
Код: 1) program Mas; var i,ne,ch,n:integer; a:array [1..1000] of integer; begin read(n); randomize; for i:=1 to n do begin a[i]:=random(80)+21;write(a[i],' ');//Распечатка массива, увидешь правильно ли программа выполняет функци                         end; for i:=1 to n do begin if a[i] mod 2=0 then ch:=ch+1 else ne:=ne+1; end;writeln; writeln('Нечетные=',Ne); writeln('Четные=',Ch); end. 2)const n = 10; var A: array [ 1 .. n ] of integer; i, znachenie, count: integer; sred_arifm, sum: real; begin for i:=1 to n do begin write('a[,'i,']=');readln(a[i]); end; write('Введите значение:');readln(znachenie); sum:=0;count:=0; for i:=1 to n do if a[i] > znachenie then begin inc(count); sum:=sum+a[i]; end; sred_arifm:=sum/count; write('Среднее арифметическое ... =',sred_arifm:3:2); end.
4,8(42 оценок)
Ответ:
volontir00
volontir00
15.02.2023
Приведенная программа принимает целые числа и выводит два значения: a - количество цифр в числе и b - произведение цифр, составляющих число. При вводе нуля программа завершает работу.  Ввод отрицательных чисел игнорируется.
1) При исполнении этой программы на экран было сначала выведено число 2, затем число 15. НАИМЕНЬШЕЕ значение переменной x, для которого это возможно, равно С) 35
Здесь количество цифр равно двум, а их произведение равно 15. Число 15 представимо в виде произведения двух однозначных чисел только в виде 3х5 или 5х3. Следовательно, наименьшим числом могло быть только 35.
2) При исполнении этой программы на экран было сначала выведено число 2, затем число 15. НАИБОЛЬШЕЕ значение переменной x, для которого это возможно, равно B) 53
Решение аналогично предыдущему, но выбирается наибольшее число, т.е. 53.
3) НАИМЕНЬШЕЕ значение переменной b, которое может быть выведено на экран этой программой, равно Е) 0
Минимальное значение произведения n однозначных чисел будет равно нулю, если среди этих чисел встретить хотя бы один ноль.
4) При исполнении этой программы на экран было сначала выведено число 2. НАИБОЛЬШЕЕ значение переменной b, которое может быть выведено на экран, равно А) 81
Максимальное произведение двух однозначных чисел равно 9х9=81.
5) НАИМЕНЬШЕЕ значение переменной a, которое может быть выведено на экран этой программой, равно D) 1
Понятно, что чисел с количеством знаков, меньшим единицы, быть не может.
4,5(77 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ