
Перевести с pascal to c++ uses crt; var n,a:integer; s:real; begin clrscr; writeln('Вводите
неотрицательные целые числа, окончание ввода отрицательное число:'); s:=0; n:=0; repeat readln(a); if a>=0 then begin s:=s+a; n:=n+1; end until a<0; if n=0 then write('Не введено ни одного неотрицательного числа') else begin s:=s/n; write('Ср. ариф. неотрицательных=',s:0:2); end; readln end.

Ответы на вопрос

#include <iostream>
using namespace std;
int main()
{
int n, a;
float s;
system("cls");
cout << "Вводите неотрицательные целые числа, окончание ввода отрицательное число:" << endl;
s = 0;
n = 0;
do
{
cin >> a;
if (a >= 0)
{
s = s + a;
n = n + 1;
}
} while (a >= 0);
if (n == 0) cout << "Не введено ни одного неотрицательного числа" << endl;
else
{
s = s / n;
cout << "Ср. ариф. неотрицательных=" << s << endl;
}
cin.get();
return 0;
}



Here's the Pascal code translated to C++:
cpp#include <iostream>
using namespace std;
int main() {
int n, a;
float s;
cout << "Вводите неотрицательные целые числа, окончание ввода отрицательное число:" << endl;
s = 0;
n = 0;
do {
cin >> a;
if (a >= 0) {
s += a;
n++;
}
} while (a >= 0);
if (n == 0)
cout << "Не введено ни одного неотрицательного числа" << endl;
else {
s /= n;
cout << "Ср. ариф. неотрицательных=" << fixed << setprecision(2) << s << endl;
}
return 0;
}
Please note that in C++, you need to include the <iostream>
header to use input/output streams (cin, cout), and you don't need the clrscr()
function since it's specific to Pascal and not necessary in C++. Additionally, you may need to include <iomanip>
to use the setprecision()
function if it's not included in other headers you have.


Похожие вопросы
Топ вопросов за вчера в категории Информатика
Последние заданные вопросы в категории Информатика
-
Математика
-
Литература
-
Алгебра
-
Русский язык
-
Геометрия
-
Английский язык
-
Химия
-
Физика
-
Биология
-
Другие предметы
-
История
-
Обществознание
-
Окружающий мир
-
География
-
Українська мова
-
Информатика
-
Українська література
-
Қазақ тiлi
-
Экономика
-
Музыка
-
Право
-
Беларуская мова
-
Французский язык
-
Немецкий язык
-
МХК
-
ОБЖ
-
Психология
-
Физкультура и спорт
-
Астрономия
-
Кыргыз тили
-
Оʻzbek tili