Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
program xxx;
var k, d, n : integer;
pr : boolean;
begin
writeln('введите число k=');
readln(k);
d: =2;
n: = k div 2;
pr: =false;
while (d< =n) and not(pr) do
if k mod d = o then pr: =true else d: =d+1;
if pr then writeln (k, '- нет, число не простое') else writeln (k, ' да,число простое');
readln
end.
на листочке чертишь круг,берешь серединку,и получается- 4 клетки вниз и 7 в право
const
n=10;
var
a: array[1..n] of integer;
i,x,k,j,s: integer;
randomize:
for i: =1 to n do a[i]: =random(255); {формируем случайный массив}
for i: =1 to n do write(a[i],' '); {выводим этот массив его на экран}
writeln('x='); read(x); {вводим x, в программе}
for i: =1 to n do if x=a[i] {если х=a[i] тогда}
then for j: =i to n do {начинаем новый цикл с i до n}
s: =s+a[j]; {вычисляем сумму}
writeln(s);
end;
s : = 0
for i : = 1 to n do
if i mod 2 = 1 then
s : = s - 1/2/n
else
s : = s + 1/2/n;
Популярные вопросы