(наименьшая цифра больше 3) И НЕ (число двузначное) <=>
<=> (наименьшая цифра больше 3) И (число не двузначное)
Вариант 1 не подходит по обоим условиям;
Вариант 3 не подходит по второму условию;
Вариант 4 не подходит по первому условию;
Вариант 2 удовлетворяет обоим условиям.
Ответ: 2.
Program massiv;
var i,max,n,j: integer;
a: array[1..30] of integer;
begin
writeln ('Введите элемент массива');
for i:=1 to 30 do
begin
write ('a[',i,']-');
readln (a[i]);
end;
n:=1;
max:=a[i];
for i:=2 to 30 do
if max<a[i] then
begin
max:=a[i];
n:=i;
end;
for i:=1 to 30 do
if a[i]<0 then a[i]:=-a[i];
writeln ('Наибольший элемент в массиве ', max);
writeln ('Номер массива ', n);
writeln ('Получившийся массив');
for i:=1 to 30 do
write (a[i],' ');
end.
1. Современное решение
<em>// PascalABC.NET 3.2, сборка 1363 от 17.12.2016</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString('>').ToCharArray.Select((c,i)->i.IsOdd?2*c:1*c).Println('')
end.
<u>Пример</u>
> СЛОВО
СЛЛОВВО
2. "Школьное" решение
var
s,s1:string;
i:integer;
begin
Write('>'); Readln(s);
s1:='';
for i:=1 to Length(s) do
if i mod 2<>0 then s1:=s1+s[i]
else s1:=s1+s[i]+s[i];
Writeln(s1)
end.
11.13.15.17.19.21.23.25.27.29.31.33.35.37.39.41....(шаг +2)т.е. число все время увел на 2
22.44.66.88.110.132.154...(шаг +22)т.е. число все время увел на 22
91.81.71.61.51.41.31.21.11.1....(шаг -10)т.е. число все время уменьна 10
_____________________________________
<span>23.53.73.83.(в числе 37 окончание на 7, а во всех остальных окончание 3)
</span>и так далее
3*2=6
128*512*6=393216Ъ
128+512=640
640:10=64
64*6=384кб