1 / 1 / 0
Регистрация: 26.03.2021
Сообщений: 31
1

Перевести код с Паскаля на С++

09.04.2021, 18:29. Показов 1290. Ответов 1
Метки нет (Все метки)

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
uses crt;
var i,n: integer;
sum: longint;
x: array [1..100] of integer;
begin
Writeln('Количество элементов ');
Read (n);
sum:=0;
 for i:=1 to n do begin
 x[i]:=random (101);
 Write (x[i],' ');
 x[i]:=x[i]*x[i];
 If not (x[i] mod 5 = 0) then sum:=sum+x[i];
 end;
Writeln;
Writeln ('Summa = ',sum);
end.
__________________
Помощь в написании контрольных, курсовых и дипломных работ, диссертаций здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
09.04.2021, 18:29
Ответы с готовыми решениями:

Каким образом можно перевести код Паскаля в код Фортран?
Здравствуйте уважаемые программисты! Может быть банальная, но довольно сложная проблема - перевод...

Как перевести код с паскаля на Java. Пытался сам но код не хочет работать переведенный
А сам код на паскале работает. Вот код на паскале var i,j,m,c,d: integer; A:array of...

Перевести код из Паскаля в С++
uses crt; var f:file of integer; a,i,j:integer; begin randomize; assign(f,'fail');...

Перевести код из Паскаля в Си
как перевести код паскаль в Си? program While16; var P, S, D:Real; K :Integer; ...

1
428 / 311 / 129
Регистрация: 09.02.2021
Сообщений: 1,096
Записей в блоге: 1
09.04.2021, 18:50 2
Лучший ответ Сообщение было отмечено PROGRAMMA2021 как решение

Решение

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
#include <iostream>
#include <ctime>
using namespace std;
 
int main()
{
    system("chcp 1251>nul");
    srand(time(NULL));
    int i, n, sum=0;
    int array[100];
    cout<<"Количество элементов"<<endl;
    cin>>n;
    for (int i = 1; i <= n; i++) {
        array[i] = rand() % 101;
        cout<<array[i]<< " ";
        array[i] *=array[i];
        if (array[i] % 5 != 0) { sum += array[i]; };
    }
    cout << endl;
    cout << "Summa = " << sum << endl;
    system("pause");
    return 0;
}
Добавлено через 34 секунды
И когда пишите тему , есть сверху кнопки кода,они не случайно,нужно код оформлять на следущий раз
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
09.04.2021, 18:50
Помогаю со студенческими работами здесь

Перевести код из паскаля в с#
Кто сможет перевести кож ниже из паскаля в с#: const cruch=10; ckar=5; clas=2; ...

Перевести код из Паскаля в Си
var a,b,c,d,e,f,g,h:real; f1,f2:real; begin write('a='); readln(a); write('b='); readln(b);...

Перевести код с Паскаля на С++
Помогите пожалуйста решить задачу или перевести код с Паскаля на С++ File13. Дан файл целых...

Перевести код с Паскаля на С
program kkr11; Uses crt; var j,n:integer; a,b,e,I,I2,x,h,f :real; begin writeln('Данная...

Перевести код с паскаля на C#
Доброго времени суток. Пытаюсь перевести этот код на С#, но немного запутался в циклах, слишком уж...

Перевести код с Паскаля на Си
uses crt; const n=4; type Strana=record nazv:string; chisl:real; ...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
2
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru