Предмет: Математика, автор: DianaMayer2002

Помогите пожалуйста! Желательно с объяснением и решением) отдаю много баллов))

Приложения:

Ответы

Автор ответа: enable934
1
тримай, можу й далі поробити)
Приложения:
DianaMayer2002: СПАСИБО ОГРОМНОЕ!!!!!!
Предыдущий вопрос
Следующий вопрос
Похожие вопросы
Предмет: География, автор: drozdinalina
простите за качество, можно пожалуйста описание озера по плану Ладожского и Псковского срочно надо
6 лет назад
Предмет: Математика, автор: huznahmedovamanzol
памогитеее под буквой (к) 20балов
6 лет назад
Предмет: Биология, автор: ivanovb99
7. Распределите признаки по трем классам типа Членистоногие: I – ракообразные, II – паукообразные, III – насекомые.
а) Тело имеет три отдела: голова, грудь, брюшко;
б) органы дыхания – жабры;
в) на голове нет усиков;
г) брюшко членистое и имеет конечности;
д) мальпигиевые сосуды открываются в задний кишечник;
е) полость тела смешанная;
ж) кровеносная система незамкнутая;
з) имеются три пары конечностей;
и) органы дыхания – трахеи.
6 лет назад
Предмет: Математика, автор: даша1487
нати значение (11/2+3/8}:3
10 лет назад
Предмет: Информатика, автор: fktrcfylh125465
плиииииз.....паскаль Дано натуральное число n. Выяснить, имеются ли среди чисел n, n+1, ..., 2n близнецы, т.е. простые числа, разность между которыми равна. Определить процедуру, позволяющую распознать простые числа.
написал программу, но она не выполняется, помогите исправить ошибку
program ex2;
var n:integer;
function P(n:integer):boolean;
var count, k :integer;
begin
count:=0;
k:=2;
while (k*k<=n) and (count=0) do
begin
if n mod k=0 then
count:=count+1;
k:=k+1
end;
P:=(count=0)
end;
begin
read(n);
while P(n) do
begin
writeln('Простое число');
read(n);
if P(n)- P(n+1)=2 then
writeln('Близнецы');
end;
end.
10 лет назад