//Pascal ABC.NET 3.1 сборка 1256
Const
n=10;
Var
ar:array[1..n] of integer;
i,k,min:integer;
begin
min:=integer.MaxValue;
writeln('Array:');
for i:=1 to n do
begin
readln(ar[i]);
if ar[i]<min then min:=ar[i];
end;
for i:=1 to n do
if ar[i]-5=min then inc(k);
writeln(k);
end.
Вероятнее всего ответ С будет неправильным, но это не точно.
#include <stdio.h>
int main()
{
int x,i,n,k=0,ch[100]={0};
printf("n=");
scanf("%d",&n);
printf("%d\n",0);
for(i=1;i<=n;i++)
{
x=i;
while(x!=0)
{
ch[k]=x%3;
x=x/3;
k++;
}
for(x=k-1;x>=0;x--)
{
printf("%d",ch[x]);
ch[x]=0;
}
printf("\n");
k=0;
}
return 0;
}
В одном каталоге не может быть двух папок или двух файлов с одинаковыми именами. В данном случае в папке USERS есть две папки PETER, чего быть не может.
Начало
повтори 4 раза
пока справа стена
повтори шаг вперед
конец цикла
закрась клетку
поверни напрво 90
конец