Перевод кода с С++

@Сергейййййййй · Регистрация: 12.01.2012

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

помогите перевести программу с С++ в паскаль
вот она:

C++

#include <cstdlib>
#include <iostream>
#include <math.h>
using namespace std;
 
int main(int argc, char** argv) {
    int a, b, c;
    float x;
    cout << "Введите a - "; cin >> a;
    cout << "Введите b - "; cin >> b;
    cout << "Введите c - "; cin >> c;
    x = pow(a * b * c, 1.0 / 3);
    cout << "Дробная часть - " << (x - int(x)) << "\n";
    return 0;
}

@tenager · 01.02.2012, 21:34

Pascal

var
   a , b , c  : integer ;
   x          : real ;
begin
     Write ( 'Введите a - ' ) ;
     ReadLn ( a ) ;
     Write ( 'Введите b - ' ) ;
     ReadLn ( b ) ;
     Write ( 'Введите c - ' ) ;
     ReadLn ( c ) ;
     x := exp ( 1/3 * ln ( a * b * c ) ) ;
     WriteLn ( 'Дробная часть - ' , x - trunc ( x ) ) ;
end .

	01.02.2012, 21:34

Опции темы

Перевод кода с С++

Решение