Помогите!for i := 0 to 99 do num[i+1]:=i+1; k:=0; i:=1; while
Помогите!
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() логического типа данных, которая возвращает истинное значение в случае, если переданный в неё целочисленный аргумент является обычным числом, и неправильное значение - в противном случае. Какое число будет выведено в результате исполнения этой программки?
1 ответ
Эльвира Галюлько
Если далее завершить программу, то получим это:
program HelloWorld;
function ez(a: longint): boolean; var c: integer; begin ez := a gt;= 2; for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then ez := false end; var i, k: integer; num: array [1 .. 100] of integer;
begin for i := 0 to 99 do num[i+1] := i + 1; k := 0; i := 1; while k lt; 7 do begin if ez(num[i]) = true then k := k + 1; i := i + 2; end; write(num[i-2]); end.
Ответ 19
program HelloWorld;
function ez(a: longint): boolean; var c: integer; begin ez := a gt;= 2; for c := 2 to trunc(sqrt(a)) do if a mod c = 0 then ez := false end; var i, k: integer; num: array [1 .. 100] of integer;
begin for i := 0 to 99 do num[i+1] := i + 1; k := 0; i := 1; while k lt; 7 do begin if ez(num[i]) = true then k := k + 1; i := i + 2; end; write(num[i-2]); end.
Ответ 19
, оставишь ответ?
Похожие вопросы
-
Вопросы ответы
Новое
NEW
Статьи
Информатика
Статьи
Последние вопросы
Предприятие по производству с/хоз продукции на производство затратило 3527000 руб Валовый
Разные вопросы.
Математика, задано на каникулы. ВАРИАНТ 1004
НОМЕР 1,2,3,4,5,6,7,8.
Математика.
Имеются три конденсатора емкостью С1=1мкФ, С2=2мкФ и С3=3мкФ. Какую наименьшую емкость
Физика.
Из точки м выходят 3 луча MP MN и MK причём
Геометрия.
выпиши в свою тетрадь те правила этикета которые тебе не были
Разные вопросы.
Анна хорошо учится у неё много подруг свободное от учёбы время
Обществознание.
10) Килограмм конфет дороже килограмма печенья на 52 р. За 8
Математика.
Во сколько раз число атомов кислорода в земной коре больше числа
Химия.
Составить монолог от имени дневника двоечника 7-10 предложений
Русский язык.
Рассматривая литературный язык как сложное взаимодействие книжного языка и разговорного,В.И.Чернышёв горячо
Разные вопросы.
Облако тегов