Var mas: array [1..6] of integer;
var i, b, sum: integer;
begin
for i:=1 to 6 do mas[i]:=random(101);
b:=0;
while i<=6 do if mas[i] mod 2<>0 then
begin
b:=i;
i:=7;
end
else inc (i);
sum:=0;
for i:=1 to 6 do if (mas[i] mod 2=0) and (mas[i]<mas[1]) then sum:=sum+mas[i];
writeln (b);
writeln (sum);
<span>end.</span>
Var a, b, x: integer;
Begin
write('Введите число a: ');
readln(a);
write('Введите число x: ');
readln(x);
write('Введите число b: ');
readln(b);
if (a×x+b<=0) then
writeln ('Сумма чиселел меньше или равна нулю')
else writeln('Сумма числел больше нуля');
End.
Program nearone;
var R,i,x,N:integer; a:array[1..10] of integer;
begin
for i:=1 to 10 do
begin
a[i]:=random(50);
writeln(a[i]);
end;
write('Число R ->');
readln(R);
x:=abs(a[1]-R);
N:=1;
for i:=2 to 10 do
if x > abs(a[i]-R) then
begin
x:=abs(a[i]-R);
N:=i;
end;
writeln('Ближайшее число - ',a[N]);
end.
Если я правильно понял, что нужно всегда выигрывать, то вот:
answer = planet
Введенное слово заменяется на заранее правильный ответ.
<span>Выполнив указанные в сообщении действия, Наташа получила следующий код для цифрового замка:
133</span>