<span>#include <stdio.h>
#include <string.h>
int main(void)
{
char s[255];
char *w = NULL, *wmin = NULL;
unsigned min = 1024;
printf("Enter a string: ");
gets(s);
w = strtok(s, " ,.-");
while (w != NULL) {
if (strlen(w) < min) {
min = strlen(w);
wmin = w;
}
w = strtok(NULL, " ,.-");
}
if (wmin != 0) printf(<span>"\n\nMin word: '%s'\nLength: %isymbols\n"</span>, wmin, min);
<span>}</span></span>
Ответ:
<em>А</em>
<em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em><em>.</em>
1)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,s,k,k1:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
A[i]:=random(10);
Write(A[i]:4);
end;
Writeln;
Writeln('Введите число: ');
Readln(s);
For i:=1 to n do
begin
If A[i]=s then k:=k+1;
end;
Writeln('Число ',s,', его кол-во в массиве: ',k,' шт.');
<span>END.
2)
Program asd;
USES crt;
Const n=10;
var A:array[1..n] of integer;
i,min,mini,max,maxi:integer;
BEGIN
Clrscr;
For i:=1 to n do
begin
A[i]:=Random(20);
Write(A[i]:4);
end;
Writeln;
max:=A[1];
min:=A[1];
For i:=1 to n do
begin
if A[i]>max then
begin
maxi:=i;
max:=A[i];
end;
if A[i]<min then
begin
mini:=i;
min:=A[i];
end;
end;
Writeln('Максимальное число: ',max,'. Индекс: ',maxi);
Writeln('Минимальное число: ',min,'. Индекс: ',mini );
<span>END.</span></span>
<span>Фраза "ИНФОРМАЦИОННЫЕ ТЕХНОЛОГИИ" содержит 25 символов. Если на 1 символ отводить до 4-х сантиметров, то будет вполне достаточно одной биты метровой длины.</span>
Ты перепутала. Это в 1 Килобайте 1024 БАЙТА, а в 1 байте - 8 бит. Также в 1 Кб - 8192 бита.