Пожалуйста перепишыте программу из паскаля в с++

@slientme · Регистрация: 18.05.2015

Author24 — интернет-сервис помощи студентам

Program Zadacha;
var
n,i: integer;
a,s: real;
begin
write('ВВ.n');
read(n);
s:=0;
for i:=1 to n do begin
write ('BB. a',i,';');
readln(a);
s:=s+sqrt(abs(a));
end;
write('s=',s);
end.

@BaktybekovK · 20.05.2015, 21:49

C++

#include <iostream>
#include <cmath>
using namespace std;
int main()
{
    int i,n;
    double a,s;
    cout<<"BBedute n\n";
    cin>>n;
    s = 0;
    for (i = 0; i < n; i++)
    {
        cout<<"BBedute a ->"<<i+1<<": ";
        cin>>a;
        s += sqrt(abs(a));
    }
    cout<<endl<<"s = "<<s;
}

@Кривокодер · 20.05.2015, 21:51

C++

#include <iostream>
#include <conio.h>
#include <math.h>
 
int main() {
int n,i;
float a,s
  std::cout << "BB.n\n";
  std:cin >> n;
  s = 0;
  for (i=1;i<=n;i++)
 {
std::cout << "BB.a" << i;
  std:cin >> a;
s+=sqrt(abs(a));
};
 
   std::cout << "s=" << s;
 
}

@slientme 0 / 0 / 0 Регистрация: 18.05.2015 Сообщений: 18
		1
	Пожалуйста перепишыте программу из паскаля в с++ 20.05.2015, 21:03. Показов 914. Ответов 2 Метки нет (Все метки) Program Zadacha; var n,i: integer; a,s: real; begin write('ВВ.n'); read(n); s:=0; for i:=1 to n do begin write ('BB. a',i,';'); readln(a); s:=s+sqrt(abs(a)); end; write('s=',s); end. 0

	20.05.2015, 21:51

Пожалуйста перепишыте программу из паскаля в с++

Решение