suturinavaleriya51
?>

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

Информатика

Ответы

h777eta

#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;

int i = 1;

while(i<=n){

     if(i%7==0) cout << i;

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;

i = a;

while(i<=b){

  sum = sum+i;

  index++;

i++;

}

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);

}

Вот, переделал задачу, под while. И кстати, отблагодарить ещё можно нажав кнопочку "Лучший ответ" ;-)

Алина1564
//Задание №1
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const m = 31;
var a:array[1..m] of integer;
i,s,n:integer;

begin
  for i:=1 to m do begin
    a[i]:=random(-20,20);
    if a[i]>0 then begin
      s:=s+a[i];n:=n+1;
    end;
  end;
  println('Температуры за месяц :'); a.println;
 writeln('Средняя в оттепель :',s/n:0:3);
end.

Тестовое решение:
Температуры за месяц :
16 7 19 -7 -18 6 12 -18 -5 -10 8 -4 10 4 10 5 -3 14 -7 -8 2 7 4 -7 18 4 -12 -5 -9 7 -5
Средняя в оттепель :9.000

//Задание №2
//PascalABC.NET (версия 3.1, сборка 1210 от 29.03.2016)
const m = 10;
var a:array[1..m] of integer;
i,s,n:integer;

begin
  for i:=1 to m do begin
    a[i]:=random(-20,20);
    if i mod 2<>0 then s:=s+a[i];
  end;
  writeln('Исходный массив :'); a.println;
  for i:=1 to m do
    if i mod 2=0 then a[i]:=s;
  writeln('Сумма на нечетных местах  = ',s);
  writeln('Изиененный массив :'); a.println;
end.

Тестовое решение:
Исходный массив :
-6 15 5 -11 18 4 17 -9 -15 -16
Сумма на нечетных местах = 19
Изиененный массив :
-6 19 5 19 18 19 17 19 -15 19
gon4arovanat6

ответ:

номер 1-интернет - всемирная паутина, которая хранит в себе тонны информации. он заменяет нам любой источник информации и облегчает понимание.

газеты/журналы - письменные, или же стандартные способы получения информации на бумаге.

телевидение - самый удобный источник информации. содержит в себе и картинку, и звук, и приятную визуализацию.

постеры/афиши - бумажки расклеенные по городу или же огромные постеры размещенные на зданиях. привлекает внимание, тем самым увеличивает число интересующихся.

радио - звуковая информация, уже перестает быть актуальной. в основном, радио - это не новости, а что-то более развлекательное.

номер 2-к примеру, кто-то описывает картину на бумаге (повествованием), тем самым переводит графическую информацию в текстовую. рассказывает вслух - уже в звуковую. и т. д.

номер 3-написание дипломного  проекта  из  своего  же  курсового,  время  прошло  законы  изменились  и  теперь  за  одни  и  теже  административные  проступки  другие  наказания, но  дабы  не  писать с  нуля все  это  лучше  обработать  свой  же  курсовик  соответственно  изменив  его  содержание

номер 4-молекула днк  

              оптические носители  

              египитские папирусы  

              бумага

             

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

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

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

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

rmitin
filternovo
гайсанов
Batishcheva
atupicyn754
rosik76
levickaalubov5
Vip2002www86
msangelika1010
N-odes-art-school410
pisikak999
петрАфанасьев
natanikulina1735
Karina-evgenevna1899
Павел_Перелыгин