Pascal
const n = 20;
var
a,b,min : real;
m : array [1..n] of real;
i : integer;
begin
// формирова массива не пишу
readln (a,b);
min := b;
for i := 1 to n do
if (m[i]<min) and (m[i] >=a ) and (m[i] <=b)
then
min := m[i];
writeln (min:3:2);
<span>end.
Программа будет работать корректно, если в массиве есть хотя бы один элемент, попадающий в диапозон [a..b].</span>
Количество символов в алфавите
<em>1)</em>
#include <stdio.h>
#include <stdlib.h>
int sover (int n)
{<span>
int sum = 0;</span><span>
for (int i = 1; i<=n/2; i++)</span><span>
if (n%i==0)</span><span> sum+=i;</span><span>
if (sum==n)</span><span>
return 1;</span><span>
else return 0;
</span>}
int main()
{<span>
int n;</span><span>
printf ("N = ");</span><span>
scanf ("%d",&n);</span><span>
if (sover(n)==1)</span><span>
printf ("Sovershennoe");</span><span>
else printf ("Ne sovershennoe");</span><span>
printf("\n");</span><span>
system ("PAUSE");</span><span>
return 0;
</span><span>}
<em>2)</em>
#include <stdio.h>
#include <stdlib.h>
int main()
{
for (int i = 1; i<=5; i++)
{
for (int j = 1; j<=5-i+1; j++)
printf ("%d ",5+i-1);
printf ("\n");
}
system ("PAUSE");
return 0;
}</span>
Ты издеваешься? Думаешь тебе за 5 баллов напишут программу???