Нужна помощь!!!Роман написал программку на языке Pascal, кусок которой
Нужна помощь!!!
Роман написал программу на языке Pascal, кусок которой приведен ниже.
for i:=0 to 99 do num[i+1] :=i+1;
k:=0;
i:=1;
while klt;7 do begin
if easy(num[i])=true
then k:=k+1;
i:=i+2;
end;
write(num[i-2]);
В программке он использовал две целочисленные переменные i и k , целочисленный массив num из 100 элементов, с индексами от 1 до 100. Также Роман обусловил функцию easy() логического тип данных,которая отдаёт подлинное значение в случае, если переданный в нее целочисленный аргумент является обычным числом , и неправильное значение - в неприятном случае. Какое число будет выведено в итоге исполненья этой программки?
--------------------
//Pascal
function easy(a:longint):boolean;
var
i:integer;
begin
easy:=true;
if alt;2 then
easy:=false else
for i:=1 to a div 2 do
if ((a mod i)=0) and (ilt;gt;1) then
easy:=false;
end;
var
i, k: integer;
num: array [0..100] of integer;
begin
for i:=0 to 99 do
num[i+1] := i+1;
k:=0;
i:=1;
while klt;7 do
begin
if easy(num[i])=true then
k:=k+1;
i:=i+2;
end;
write(num[i-2]);
end.
-
Вопросы ответы
Статьи
Информатика
Статьи
Обществознание.
Математика.
Химия.
Русский язык.
Разные вопросы.
Разные вопросы.
Математика.
Русский язык.
Русский язык.
Разные вопросы.