@Ronin08

Как перевести из с++ в ПаскальABC?

#include
#include
using namespace std;
int main()
{
int n, i, t, t1;
cout<<"n= "; cin>>n;
for(i=2; i<=(int)sqrt((double)n); i++)
{
t=0; t1=n;
while(t1%i==0)
{
t++;
t1/=i;
}
if(t==2)
cout< }

return 0;
}
  • Вопрос задан
  • 30 просмотров
Пригласить эксперта
Ответы на вопрос 1
hint000
@hint000
у админа три руки
Ого! Я последний раз на Паскале писал ~24 года назад :) (и это был тогда Tetris, от нечего делать)
1. заменим {...} на begin ... end
2. заменим цикл for(...) на цикл while ... do
3. заменим = на :=
4. заменим == на =
5. оператора /= нет, заменим на t1=t1 div i;
6. оператора ++ нет, заменим на t:=t+1;
7. заменим t1%i на t1 mod i
8. заменим cout, cin на write(...), read(...)
9. осталось правильно объявить переменные и вместо int main(){...} написать begin ... end. (c точкой на конце)
Как-то так.
https://ru.wikipedia.org/wiki/Паскаль_(язык_програ...

P.S. ну и на C++ что-то недописано:
#include
#include

cout< }
ааа... так это угловые скобки съелись, надо было весь код выделить как код.
Ответ написан
Комментировать
Ваш ответ на вопрос

Войдите, чтобы написать ответ

Войти через центр авторизации
Похожие вопросы