1) var i,n:integer;
c,d:integer;
a:array[1..1000] of integer;
begin write('введите c,d,n');
read(c,d,n);
for i:=1 to n do begin
a[i]:=random(100);
write(a[i],' ');
end;
for i:=1 to n do begin
if (a[i]>=c) and (a[i]<=d) then write(a[i],' ');
end;
end.
2) по ссылке на файл
Program red;
var a,b,c:integer;
begin
b:=0;
readln(a);
if a<10 then
begin
if a*5=0 then b:=1;
end;
if (a>=10) and (a<100) then
begin
if ((a div 10)*5=0) then b:=1;
if ((a mod 10)*5=0) then b:=1;
end;
if (a>=100) and (a<1000) then
begin
if ((a div 100)*5=0) then b:=1;
if (((a div 10) mod 10)*5=0)then b:=1;
if ((a mod 10)*5=0)then b:=1;
end;
if b=1 then writeln('yes') else writeln('no');
end.
Потому что ее употребляют в различных коммуникациях.
Можно с помрщью простой программы решить:
#include <iostream.h>
int main()
{
int i[12] = { 77, 105, 99, 107, 101, 121, 32, 77, 111, 117, 115, 101 };
for( int k = 0; k < 13; k++ ) std::cout << (char)(i[k]);
system("pause");
return 0;
}
<span>Ответ: Mickey Mouse</span>