Нужна ! роман написал программу на языке pascal, фрагмент которой ниже. for i: =0 to 99 do num[i+1] : =i+1; k: =0; i: =1; while k< 7 do begin if easy(num[i])=true then k: =k+1; i: =i+2; end; write(num[i-2]); в программе он использовал две целочисленные переменные i и k , целочисленный массив num из ста элементов, с индексами от 1 до 100. также роман определил функцию easy() логического тип данных,которая возвращает истинное значение в случае, если переданный в нее целочисленный аргумент является простым числом , и ложное значение - в противном случае. какое число будет выведено в результате выполнения этой программы?

156

221

Посмотреть ответы 2

Ответы на вопрос:

jddosnfkdmsns

Информатика

4,6(89 оценок)

19 //pascal function easy(a: longint): boolean; var i: integer; begin easy: =true; if a< 2 then easy: =false else for i: =1 to a div 2 do if ((a mod i)=0) and (i< > 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 k< 7 do begin if easy(num[i])=true then k: =k+1; i: =i+2; end; write(num[i-2]); end.

Lirik1328

Информатика

4,6(77 оценок)

1. read(a); read (b); while (a< =b) begin; if ((a mod 2 =0) and (a mod 3 =0)) or ((b mod 2=0) and (b mod 3 =0)) then begin; write (a) else if (b mod 2=0) and (b mod 4=0) then write (b) else end; readkey; end. второе прости могу только на си