#include < bits/stdc++.h>
using namespace std;
int main()
{
int Count, Min, num;
cin >> Count;
Min = 30000;
for(int i = 0; i < Count; ++i){
cin >> num;
if(num % 3 == 0 && num < Min){
Min = num;
}
}
cout << Min;
return 0;
}
3. Слой для записи намагничивается пишущей головкой, положение пишущей головки управляется лазером.
Var a,s,k:integer;beginwrite('введите число: ');readln(a);while a<>0 do begink:=a mod 10;s:=s+k;a:=a div 10;end;writeln('сумма цифр равна ',s);end.
Нужно перемножить количество возможных вариантов каждой лампочки:
3*3*2*2*2*2*2 = 288
Ответ: 288 различных сигналов можно передать с помощью панели
Var x,a:integer;
begin
x:=10;
while (x<100) do
begin
a:=x*x;
if (a<999) then
begin
if (((a mod 10)*100 + ((a mod 100)div 10)*10 + (a div 100))=a)then
writeln(x);
end
else
begin
if (((a mod 10)*1000 + ((a mod 100)div 10)*100 + ((a mod 1000)div 100)*10 + (a div 100))=a)then
writeln(x);
end;
x:=x+1;
end;
end.