На C++:
#include <iostream>
using namespace std;
int main()
{
int count=1, min=30001, val;
do
{
cin >>val;
if(val>30000) val-=30000;
if((val<min) && (val>0)) min=val;
if(count<1000) ++count;
} while(val>0);
cout <<"Минимальный элемент: " <<min;
return 0;
}
Var A,S:longint;
Begin
Write('Введите шестизначное число: ');ReadLn(A);
S:=A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
S:=S+A mod 10;
A:=A div 10;
A:=(A div 100)+(A div 10) mod 10 + (A mod 10);
if A<>S then Write('Билет не является счастливым')
else WriteLn('Счастливый билет!!!')
End.
38. 1 (*4) => 4 (*4)=> 16(-3) => 13(*4) => 52(-3) =>49
=> - команды
39. 5(+3)=>8(+3)=>11(^2)=>121(+3)=>124(+3)=> 127
40. 5(+1)=>6(^2)=>36(+1)=>37(+1)=>38(+1)=>39
// Необходимо найти длины сторон всех прямоугольников,
// площадь которых равна заданному натуральному числу S.
// Стороны должны быть выражены натуральными числами.
// При этом решения, которые получаются перестановкой размеров сторон, считаются разными.
var S,i : word;
Begin
writeln ('Введите площадь прямоугольника');
readln (S);
writeln ('Возможные прямоугольники:');
for i:=1 to S do
begin
if (S mod i)=0 then
begin
writeln ('сторона а=',i,' сторона b=',S/i);
end;
end;
<span>End.</span>