Program Help;
Var i : Word;
Begin
(* 1 способ *)
For i := 100 to 999 do
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
Writeln;
(* 2 способ *)
i := 100;
While i < 999 do
Begin
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
i := i + 1;
End;
Writeln;
(* 3 способ *)
i := 100;
Repeat
If (i mod 6 = 0) and (i mod 4 = 0) and (i mod 10 = 8) then
Writeln(i);
i := i + 1;
Until i = 999;
Readln;
End.
Var ar:array[1..12] of integer;
i,min:integer;
begin;
min:=2147483647;
for i:=1 to 12 do
begin;
readln(ar[i]);
if (ar[i]>0) and (ar[i]<min) then
min:=ar[i];
end;
writeln;
writeln('Array:');
for i:=1 to 12 do
write(ar[i]:4);
writeln;
write('Min:',min);
<span>end.</span>
Разбивают на группы по три буквы, затем каждую группу разворачивают "задом наперед":
например:
красота
кра - сот - а
арк - тос - а
значит, чтоб "расшифровать" - делаем то же:
фнимроицая
фни - мро - ица - я
инф - орм - аци - я
Ура!)
X+y+z=72
x1=x-y
y1=y+y=2y
y2=y1-z=2y-z
z1=2z
z2=z1-x1=2z-x+y
x2=x1+x1=2x-2y
x2=y2=z2=23
2x-2y=24 --->x-y=12 ----> x=y+12 (подставляем в (*)
2y-z=24 ----> z=2y-24 (подставляем в (*)
2z-x+y=24 (*)
2(2y-24)-(y+12) +y=24
4y-48-y-12+y=24
4y=84
y=21
x=21+12=33
z=2*21-24=42-24=18
x=33 y =21 z=18
ответ 33 21 18
Var n, i: Integer;
<span> a, min: LongInt;
</span>Begin
<span> min := 30000;
</span><span> readln(n);
</span><span> for i := 1 to n do begin
</span><span> read(a);
</span><span> if (a mod 2=0) and (a < min) then min := a;
</span><span> end;
</span><span> writeln(min);
</span><span>End.</span>