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

C++
1-користувач вводить число, вивести на екран всі числа від введеного користувачем до першого, яке кратне 7-ми.
2-користувач вводить дві межі діапазону. порахувати суму та середнє арифметичне всіх чисел діапазону.
3-напишіть програму, яка запитує два цілих числа x і y, після чого обчислює і виводить значення x в степені y.

👇
Ответ:
cat2522
cat2522
18.01.2022

#include<iostream>

#include <cstdlib>

#include <math.h>

using namespace std;

int main()

{

system("chcp 1251 > null");

int n = 0;

cout << "Задача 1.\n\tВведіть n: ";

cin >> n;

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

   if(i%7==0){

       cout << i;

   }

}

cout << "\n\n";

int a,b;

cout << "Задача 2.\n\tВведіть перше число діапазону: ";

cin >> a;

cout <<"\n\tВведіть друге число діапазону: ";

cin >> b;

double sum = 0;

double sr = 0;

int index = 0;

for(int i = a; i<=b; i++){

   sum = sum+i;

   index++;

}

sr = sum / index;

cout << "\n\nСума: " << sum << "\nСереднє арифметичне: " << sr;

int x = 0;

int y = 0;

cout << "\n\nЗадача 3.\n\tВведіть x: ";

cin >> x;

cout << "\n\tВведіть y: ";

cin >> y;

cout << "Результат" << powl(x,y);

}

Старался написать как можно проще. По оценить мои старания ;-)

4,5(54 оценок)
Открыть все ответы
Ответ:
polinapolina971
polinapolina971
18.01.2022
{ Boland Pascal 7.01 }
uses Crt;
const
  n=20;
var
  a,b:array[1..n] of integer;
  i,k:integer;
begin
  ClrScr;
  Randomize;
  Writeln('*** Исходный массив ***');
  k:=0;
  for i := 1 to n do begin
    a[i]:=Random(51)-25;
    Write(a[i]:4);
    if Odd(a[i]) and (a[i]>0) then
      begin Inc(k); b[k]:=a[i] end
  end;
  Writeln;
  if k>0 then begin
    Writeln('*** Сформированный массив ***');
    for i:=1 to k do Write(b[i]:4);
    Writeln
    end
  else Writeln('Нет элементов для формирования выходного массива');
  ReadKey
end.

Тестовое решение:
*** Исходный массив ***
  -3 -16  -9  20  18  11 -25  14 -22 -20 -11  15 -19  20 -16  19  -2  -4  -8 -17
*** Сформированный массив ***
  11  15  19

А вот для сравнения современный вариант программы:
// PascalABC.NET 3.0, сборка 1088
begin
  var n:=ReadInteger('Размер массива=');
  var a:=ArrRandom(n,-25,25);
  Writeln('*** Исходный массив ***',#13#10,a);
  var b:=a.Where(x->(Odd(x) and (x>0)));
  If b.Count>0 then Writeln('*** Сформированный массив ***',#13#10,b)
  else Writeln('Нет элементов для формирования выходного массива')
end.

Тестовое решение:
Размер массива=20
*** Исходный массив ***
[-9,-1,8,-7,13,0,-22,20,18,-15,9,-14,16,15,0,1,9,-17,22,-13]
*** Сформированный массив ***
[13,9,15,1,9]

Исправлено: по " трудящихся" добавлена блок-схема.

Дан одномерный массив. сформировать другой массив из положительных нечетных, либо вывести сообщение,
4,8(63 оценок)
Ответ:
senyadubra
senyadubra
18.01.2022
// PascalABC.NET 3.0, сборка 1088
function Fib(n:integer):longint;
begin
  if n<3 then Fib:=1 else Fib:=Fib(n-2)+Fib(n-1)
end;

var
  a,b,f,mn:longint;
  i:integer;
begin
  Write('Введите а и b: '); Read(a,b);
  if a<b then mn:=a else mn:=b;
  i:=1;
  repeat
    f:=fib(i); Inc(i);
  until f>=mn;
  if f=mn then begin
    if a=mn then mn:=b else mn:=a;
    if fib(i)=mn then Writeln('Соседние числа Фибоначчи')
    else Writeln('Меньшее - число Фибоначчи, большее - не его сосед')
    end
  else Writeln('Меньшее - не число Фибоначчи, работа закончена')
end.

Тестовые решения:
Введите а и b: 610 987
Соседние числа Фибоначчи

Введите а и b: 500 250
Меньшее - не число Фибоначчи, работа закончена

Введите а и b: 610 830
Меньшее - число Фибоначчи, большее - не его сосед
4,6(37 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ