Var i,n,m,s:integer; begin write('Введите число: '); readln(n); if n mod 2=0 then writeln('Число не является простым') else begin m:=trunc(sqrt(n)); i:=3; while (n mod i <> 0) and (i<=m) do i:=i+2; if i<=m then writeln('Число не является простым') else writeln('Число является простым') end end.
Program chisla; uses crt; var i,a,k: integer; begin clrscr; write('введите число: '); readln(a); k:=0; for i:=2 to a div 2 do if a mod i =0 then k:=k+1; if k=0 then write('простое') else writeln('не простое'); readln; end.
Будем считать, что трёхлитровый кувшин - это кувшин под номером 1, а восьмилитровый - номер 2. Сначала 8 литров наливаете во второй кувшин. Из второго кувшина переливаете в первый 3 литра. Получаете в первом кувшине - 3 литра, а во втором - 5. Выливаете из первого кувшина 3 литра. Снова из второго кувшина переливаете в первый 3 литра. В первом находится снова 3 литра, а во втором - 2. Выливаете воду из первого. Из второго добавляете в первый 2 литра. В первом - 2 литра, а второй пустой. Полностью заполняете восьмилитровый кувшин и переливаете 1 литр в первый. В итоге во втором кувшине остаётся 7 литров воды. Удачи!
var a: array[1..n] of integer; i: integer; flag: boolean;
begin Randomize; Writeln('Элементы массива'); for i := 1 to n do begin a[i] := Random(19999) - 9999; Write(a[i]:6); end; Writeln; i := 1; flag := False; repeat flag := (sign(a[i]) = sign(a[i + 1])); i := i + 1 until flag or (i > n); if flag then Writeln('Есть пара соседних элементов с одним знаком') else Writeln('Нет пар соседних элементов с одним знаком') end.
Тестовое решение: Элементы массива 2440 -2414 -3192 -6912 -8537 7364 2869 -2505 8875 2662 401 7398 2213 8804 2039 1485 4213 8359 -2410 -5844 Есть пара соседних элементов с одним знаком
i,n,m,s:integer;
begin
write('Введите число: ');
readln(n);
if n mod 2=0 then
writeln('Число не является простым')
else begin
m:=trunc(sqrt(n));
i:=3;
while (n mod i <> 0) and (i<=m) do i:=i+2;
if i<=m then writeln('Число не является простым')
else writeln('Число является простым')
end
end.