Помогите найти ошибку в программе(она в комментариях)
Неужели трудно попробовать скомпилировать программу, и посмотреть ошибку?..
Ошибку не выдает в окне вывода
Вижу... Другие ошибки никто, кроме Вас, не найдёт. Вы ж не написали, что должна делать программа...
Рад узнать что ктото ещё программирует га паскаль!
У Вас программа либо никогда не войдёт в цикл, либо не выйдет из него... Чего Вы хотели добиться?
Ответы
Ответ дал:
1
Var x,y,d,k:integer;
Begin
For x:= 0 to 15 do
Begin
y:=x*x+x+17;
Write('f(',x,') = ',y);
k:=0;
d:=y div 2;
While d > 1 do
Begin
if y mod d = 0 then k:=k+1;
d:=d-1
End;
if k = 0 then WriteLn(' - простое')
else WriteLn(' - составное')
End;
End.
Begin
For x:= 0 to 15 do
Begin
y:=x*x+x+17;
Write('f(',x,') = ',y);
k:=0;
d:=y div 2;
While d > 1 do
Begin
if y mod d = 0 then k:=k+1;
d:=d-1
End;
if k = 0 then WriteLn(' - простое')
else WriteLn(' - составное')
End;
End.
У вас нехватает ; в строках: 12, 15
Перед любым "end" ставить точку с запятой не обязательно.
Скачайте уже себе компилятор Паскаля - сможете, хотя бы, проверять программы...
Ну уж извини, но компилятор пишет, что нехватает ;
Смешно=)))
Вас заинтересует
1 год назад
1 год назад
2 года назад
3 года назад
3 года назад
8 лет назад
write('Введите х при 0<=x<=15,x=');
read(x);
while (0<=x)and(x<=15) do
begin
y:=sqr(x)+x+17;
readln(y);
end;
n:=1;
repeat
n:=n+1
until y mod n = 0;
if n<y then writeln('сост')
else writeln('прост')
end.