Вывести все простые трехзначные числа через паскаль program z5; uses crt; var x, i, k : integer; begin for i: =100 to 999 do for x: =1 to i-100 do if i mod x=0 then k: =k+1; if k=2 then writeln('да') else writeln ('нет') end. вот что у меня получилось, что мне еще нужно дописать?

245

357

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

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

Aqvtttt

Информатика

4,5(100 оценок)

Var i,a,k: integer; begin for a : = 100 to 999 do begin k: =0; for i: =2 to a div 2 do if a mod i = 0 then k : = k + 1; if k = 0 then write(a, ' '); end; end.

7515575

Информатика

4,5(59 оценок)

Var a: array [1..10] of integer; i, n, p: integer; begin writeln('vvedite n'); readln(n); p: =1; writeln('vvedite massiv'); for i: =1 to n do begin readln(a[i]); p: =p*a[i]; end; writeln('proizvedenie elementov massiva = ',p); end.