@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;
}
  • Вопрос задан
  • 23 просмотра
Пригласить эксперта
Ответы на вопрос 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< }
ааа... так это угловые скобки съелись, надо было весь код выделить как код.
Ответ написан
Ваш ответ на вопрос

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

Войти через центр авторизации
Похожие вопросы
02 апр. 2020, в 16:49
15000 руб./за проект
02 апр. 2020, в 16:41
2000 руб./за проект
02 апр. 2020, в 16:33
10000 руб./за проект