1. Серый волк
2. Серое небо, заяц
3. Белый заяц
4. Красный сок
5. Серый дом
Примерно так
var a:array [1..10] of integer;
b,i:integer;
z:real;
begin
randomize;
for i:=1 to 10 do
begin
z:=random;
b:=random(10);
if z>0.5 then a[i]:=b
else a[i]:=-b;
end;
for i:=1 to 10 do
write(' ',a[i]);
end.
если что то не понятно,спрашивай)
Var x,y,z:intefer;
begin
writeln('Vvedite 3 chisla');
readln(x,y,z);
if (x <span>mod5=0) then writeln(x);
</span>if (y <span>mod5=0) then writeln(y);
</span>if (z <span>mod5=0) then writeln(z);
</span>end.
// Возможно, это работает
#include<stdio.h>
int main()
{
int x,s,l,n;
scanf("%d", &n);
do{
s = 0;
for(x = 1; x <= n; x++)
{
s += 1;
l = 10;
while(x % l == 0){s -= 9; l *= 10;};
if(x % s == 0) printf("%d ",x);
};
printf("\n");
scanf("%d", &n);
} while(n > 0);
}<span>
</span>