ВР
Валентина Рыжова
Паскаль. Нахождение максимального простого числа из integer.
Я составил её так:
program z;
var x, l, j, k, i, max:integer;
begin
x:=32767;
k:=0;
max:=0;
l:=x div 2;
for i:=x downto l do begin
for j:=3 to l do begin
if (i mod j = 0) then k:=k+1;
end;
if (k=2) and (i>max)) then max:=i;
end;
Writeln('max - ',max);
Readln;
Readln;
end.
1) Где здесь ошибка? (Подозреваю, что неправильно составил цикл) .
2) Как решить эту же задачу, используя тип boolean? (Раньше с этим типом не сталкивался, не всё с ним понятно).
****if (k=2) and (i>max) then max:=i****
Здесь одна скобка, если что ошибка не в этом.