Перевод кода

@Антон Блик · Регистрация: 10.03.2013

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

Переведите пжалуйста код на паскаль

C++
1
2
3
4
5
6
7
8
9
10
11
12
13
14
#include<iostream>
#include<string>
using namespace std;
unsigned long long res=1;
int n,len;
string a;
int main()
{
    cin>>n;
    cin>>a;
    len=a.size();
    for(int i=n; i>0; i-=len) res*=i;
    cout<<res<<endl;
    return 0;

@programina · 22.11.2013, 15:08

Сообщение от Антон Блик

Переведите

Зачем? Паскаль - мертвый язык. Но если очень надо для экспериментаторских причуд, то лучше сразу обратиться в раздел паскаля, тем более код мизерный.

@Антон Блик · 22.11.2013, 15:10 **[ТС]**

а почему мертвый?

@programina · 22.11.2013, 15:15

Сообщение от Антон Блик

а почему мертвый?

Потому что на нем сегодня никто не пишет.

Добавлено через 2 минуты
Антон Блик, вот почитайте эту тему.
Почему Delphi считают умершим?!

@Антон Блик · 22.11.2013, 15:22 **[ТС]**

но задают на нем)

Добавлено через 6 минут
ну переведите пожалуйста

Добавлено через 18 секунд
programina, переведите пжл

@programina · 22.11.2013, 15:33

Сообщение от Антон Блик

но задают на нем)

Они просто не осилили с++ в свое время, а сейчас не хотят переобучаться. Не слушайте их, пишите на С++.

Добавлено через 4 минуты
Антон Блик, вот крутая ide для с++ вместе с компилятором:
http://www.codeblocks.org/downloads/26
Нужно качать это: codeblocks-12.11mingw-
setup_user.exe там уже встроен компилятор.

@newbie666 · 22.11.2013, 15:34

Не по теме:

programina, ты чё серьёзно на код блоках торчишь? :D

@programina · 22.11.2013, 15:36

Сообщение от newbie666

Не по теме:

programina, ты чё серьёзно на код блоках торчишь? :D

Да, это одна из лучших сред, а для новичков ей вообще нет альтернативы.

@newbie666 · 22.11.2013, 15:38

Сообщение от programina

Да, это одна из лучших сред

А студия хуже?

@gray_fox · 22.11.2013, 15:41

Не по теме:

Сообщение от programina

Зачем? Паскаль - мертвый язык.

) странный вопрос, тут в разделе > половины тем в духе "завтра сдавать!", думаете им есть дело, кто там умер?)

@gray_fox · 22.11.2013, 15:41

Не по теме:

Сообщение от newbie666

А студия хуже?

А что, лучше?)

@newbie666 · 22.11.2013, 15:42

Не по теме:

Сообщение от gray_fox

думаете им есть дело, кто там умер?)

5 баллов

Добавлено через 19 секунд

Не по теме:

Сообщение от gray_fox

А что, лучше?)

да, конечно

@rangerx · 22.11.2013, 16:22

Не по теме:

Сообщение от programina

Потому что на нем сегодня никто не пишет.

Сообщение от programina

Они просто не осилили с++ в свое время, а сейчас не хотят переобучаться.

В сфере образования(где ему в общем-то и место) он вполне себе жив. На Pascal'e изучают основы програмирования, и в этом плане он гораздо лучше C++.

@newbie666 · 22.11.2013, 16:25

Не по теме:

Сообщение от rangerx

На Pascal'e изучают основы програмирования

только идиоты изучают основы программирования на паскале, чтоб потом пересесть на С++

@gray_fox · 22.11.2013, 16:27

Не по теме:

Сообщение от newbie666

только идиоты изучают основы программирования на паскале, чтоб потом пересесть на С++

С чего им пересаживаться именно на С++? Есть куча других языков же...

@newbie666 · 22.11.2013, 16:29

Не по теме:

Сообщение от gray_fox

С чего им пересаживаться именно на С++

это основа всех основ, да и потом, тут речь шла про С++ и паскаль, другие языки не упоминались... :)

@gray_fox · 22.11.2013, 16:37

Не по теме:

Сообщение от newbie666

это основа всех основ

Это крайне спорно) С - может быть

Сообщение от newbie666

да и потом, тут речь шла про С++ и паскаль, другие языки не упоминались...

Тут только писали, что Паскаль хорош для обучения. То, что его учат, чтобы пересесть потом на плюсы - ваши слова)

@programina · 22.11.2013, 16:38

Сообщение от rangerx

В сфере образования(где ему в общем-то и место) он вполне себе жив.

Пока живы носители языка, а потом что? Ладно паскальные программисты, они на пенсии будут мемуары писать про паскаль и зарабатывать на этом, а ТС-у что делать?

Сообщение от rangerx

На Pascal'e изучают основы програмирования, и в этом плане он гораздо лучше C++.

Ню-ню. Одно только присовение чего стоит, когда видишь его, думаешь, что паскаль для инопланетян создавали:

Pascal
1
:=

И вообще паскаль обьекто-ориентированный? Ага, зачем студентам ООП...

@Антон Блик · 22.11.2013, 16:50 **[ТС]**

так трудно перевести код?

@rangerx · 22.11.2013, 18:56

Не по теме:

Сообщение от newbie666

только идиоты изучают основы программирования на паскале, чтоб потом пересесть на С++

Основы программирования на Pascal'е изучают не для того чтобы пересесть на некий язык X, а для того чтобы обучаться используя адекватный поставленной задаче ЯП; обучаться программированию, а не языку. Те сложности с которыми сталкиваются те, кто начинает с C++ по большей части искуcственны и связаны исключительно со сложностью самого языка.

Сообщение от newbie666

это основа всех основ

Основа основ чего?

Сообщение от programina

Пока живы носители языка, а потом что? Ладно паскальные программисты, они на пенсии будут мемуары писать про паскаль и зарабатывать на этом...

Если ты думаешь, что везде и повсюда применяется один лишь C++(и производные языки), а Pascal последний ЯП, который изобрёл Вирт, то ты очень ошибаешься.

Сообщение от programina

а ТС-у что делать?

А TC что собирается один ЯП на всю жизнь выучить? :)

Сообщение от programina

Ню-ню. Одно только присовение чего стоит, когда видишь его, думаешь, что паскаль для инопланетян создавали:

А то, что в C++(а если быть более точным, то в C) используемый в математике(и всем привычный) знак равенства = заменили на == тебя не смущает?

Сообщение от programina

И вообще паскаль обьекто-ориентированный? Ага, зачем студентам ООП...

ООП индустриальная парадигма. В современных версих Pascal'я есть ООП, но изучать его на Pascal'е я бы не стал.

Добавлено через 37 минут

Сообщение от Антон Блик

Переведите пжалуйста код на паскаль

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
(************************)
  var i, n: Integer;
      res: Qword;     
      a: String;
 
begin  
  ReadLn(n);
  ReadLn(a);
  res:= 1; i:= n;
  while i > 0 do begin    
    res:= res * i;
    Dec(i, Length(a));
  end;
  WriteLn(res)
end.

Новые блоги и статьи Все статьи Все блоги /
Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .	Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Нашел на реддите интересную статью под названием Anyone know where to get a free Desktop or Laptop? Ниже её машинный перевод. После долгих разбирательств я наконец-то вернула себе. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.
Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro	Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .

@Антон Блик 0 / 0 / 0 Регистрация: 10.03.2013 Сообщений: 19
	22.11.2013, 15:10 [ТС]
	а почему мертвый? 0

@Антон Блик 0 / 0 / 0 Регистрация: 10.03.2013 Сообщений: 19
	22.11.2013, 15:22 [ТС]
	но задают на нем) Добавлено через 6 минут ну переведите пожалуйста Добавлено через 18 секунд programina, переведите пжл 0

@newbie666
	22.11.2013, 15:34
	Не по теме: programina, ты чё серьёзно на код блоках торчишь? :D 0

@Антон Блик 0 / 0 / 0 Регистрация: 10.03.2013 Сообщений: 19
	22.11.2013, 16:50 [ТС]
	так трудно перевести код? 0