Экономика
Напишите программу ,которая спросит имя пользователя и класс в котором он учится,а затем выдаст строку Здравствуй (имя пользователя) ,если введено число класса до 9, то написать ,ты еще не знаешь Paskal,если больше,то давай поработаем,если какой либо другой символ,или число болеше 11-попросить еще раз ввести символ.
Ребят, очень надо срочноооооо!!!' Заранее спасибо за помощь!!!
плиииииз.....паскаль Дано натуральное число 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.
