Program Princess;
uses crt;
var
M:Integer;
begin
writeln('');
writeln('* Вас приветствует ППП *');
writeln('* Программа Проверки Принцесс *');
writeln('* *');
writeln('* Сейчас узнаем... *');
writeln('');
writeln('1. Постелите постель для девушки');
writeln('2. Подложите горошину');
writeln('3. Дождитесь утра...');
writeln('4. Разбудите девушку');
writeln('5. Спросите: "Как Вам спалось?" ');
writeln('6. Введите в систему ответ девушки:');
writeln(' 0 - "Плохо, совсем не сомкнула глаз..." ');
writeln(' 1 - "Отлично выспалась" ');
readln(M);
writeln('');
writeln('* Итак... *');
if m=0 then
writeln('* Эта девушка - настоящая принцесса! *')
else
writeln('* Увы! Эта девушка - не принцесса! *');
writeln('');
end.
Буду по порядку добавлять.
1)
uses crt;
var n,s,i:integer;
begin
clrscr;
write('n=');
readln(n);
s:=0;
for i:=1 to n do
s:=s+sqr(i);
write('s=',s);
end.
2)
uses crt;
var a:array [1..100] of real;
n,i,p,o,l:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
begin
readln(a[n]);
if a[n]>0 then p:=p+1;
if a[n]<0 then o:=o+1;
if a[n]=0 then l:=l+1;
end;
writeln(l,p,o);
end.
3)
uses crt;
var a:array [1..100] of real; i,n:integer;
begin
clrscr;
write('n=');
readln(n);
write('a[n]:');
for i:=1 to n do
read(a[i]);
for i:=1 to n do
if (a[i]=0) then writeln('YES')
else writeln('NO');
end.
