Перевести с Pascal на С++

10.10.2016, 21:48. Показов 287. Ответов 0

Метки нет (Все метки)

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

Pascal

Var n, i, k:word; 
   s, m: longInt; 
 
BEGIN 
    write ('Enter n, please ->'); 
    readLn (n); 
    write ('Enter m, please ->'); 
    readLn (m); 
    for i:=1 to n do 
     begin 
      k:=i; 
      while k<>0 do 
       begin 
        s:=(k mod 10) +s; 
        k:=k div 10 
       end; 
      if sqr(s)=m 
         then write (i,' '); 
      s:=0; 
     end; 
END.

Заказать работу у эксперта

Programming

Эксперт

94731 / 64177 / 26122

Регистрация: 12.04.2006

Сообщений: 116,782

10.10.2016, 21:48

Ответы с готовыми решениями:

Нужно перевести код из Turbo Pascal в Pascal ABC.NET
Доброго времени суток. На форуме находил похожие темы, но к сожалению так и не смог разобраться....

Нужно перевести программу с Turbo Pascal в Pascal ABC.NET
Вот есть программный код , но он для турбо паскаля, помогите перевести его в АБС.NET Program...

Нужно перевести код с Pascal ABC на Turbo Pascal - рисование работающей мельницы
Вот код, он должен рисовать работающею мельницу. uses graphABC,crt; type point=record ...

Перевести в код Pascal ABC из кода Pascal Delphi
procedure TForm1.Button1Click(Sender: TObject); const n=8; var x:array of real; y,z:array of...

	10.10.2016, 21:48

IT_Exp

Эксперт

87844 / 49110 / 22898

Регистрация: 17.06.2006

Сообщений: 92,604

10.10.2016, 21:48

Помогаю со студенческими работами здесь

Нужно перевести код из Turbo Pascal в Pascal ABC
Program n5; { Задача. Описать функцию less(f) от непустого файла f ...

Необходимо перевести программу с Pascal ABC на free pascal
var a, factorial:longint; const c:array of char= ('0','1'); var res:string; d:0..1; k,...

Перевести в код Pascal ABC из кода Pascal Delphi
Помогите перевести в код ABC а то с Delphi вообще не знаком. Задание было такое: Записать в файл...

Перевести из Turbo Pascal в Pascal ABC
Добрый вечер. Необходимо перевести этот код из Turbo Pascal в Pascal ABC. Заранее спасибо. uses...

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

Или воспользуйтесь поиском по форуму:

Наверх