Нужно перевести код из Java в Pascal:

17.10.2013, 20:19. **Просмотров** 1657. **Ответов** 3

Java

Import java.util.*;
class Main
{public static void main(String[]args)
{Scanner sc=new Scanner(System.in);
int x=sc.nextInt();int k;int o=0;int z=0;
k=0;
while (x!=0)
{o=o+1;
for (int i= 2;i<=Math.round(Math.sqrt(x));i++){
if (x%i==0) 
k=k+1;
} 
if ((k==0) & (x!=1)) 
z=o;
k=0;
x=sc.nextInt();
}
System.out.print(z);
}}

magirus · 17.10.2013, 20:21

1) называйте темы информативно.
2) используйте тегы выделения кода - кнопочки над окном ответа.

Kodzaev · 17.10.2013, 20:48

Ты лучше условие напиши. Здесь не каждый знает Java.

@ildwine · 17.10.2013, 21:23

Согласно синтаксису Java и Pascal будет так! Семантику не проверял.

Pascal

var
  x, o, z, k, i : integer;
begin
  o := 0;
  z := 0;
  readln(x);
  k := 0;
  while x <> 0 do
  begin 
    inc(o);
    for i := 2 to round(sqrt(x)) do
    begin
      if x mod i = 0 then
        inc(k)
    end;
    if (k = 0) and (x <> 1) then
    begin
      z := o;
      k := 0;
      readln(x)
    end;
    writeln(z)
  end
end.

Добавлено через 23 минуты
Извиняюсь неправильно. Правильно вот:

Pascal

var
  x, o, z, k, i : integer;
begin
  o := 0;
  z := 0;
  readln(x);
  k := 0;
  while x <> 0 do
  begin 
    inc(o);
    for i := 2 to round(sqrt(x)) do
    begin
      if x mod i = 0 then
        inc(k)
    end;
    if (k = 0) and (x <> 1) then z := o;
    k := 0;
    readln(x);
    writeln(z)
  end
end.

magirus Почетный модератор 28017 / 15743 / 972 Регистрация: 15.09.2009 Сообщений: 67,812 Записей в блоге: 78
	17.10.2013, 20:21	2
	1) называйте темы информативно. 2) используйте тегы выделения кода - кнопочки над окном ответа. 0

Kodzaev 3018 / 1906 / 1647 Регистрация: 30.04.2011 Сообщений: 3,054
	17.10.2013, 20:48	3
	Ты лучше условие напиши. Здесь не каждый знает Java. 0

Опции темы