1)
var a:array [1..4] of integer;
var x,i,i1: integer;
begin
writeln('Введите 4-х значное число');
read(x);
for i:=1 to 4 do begin
a[i]:=x mod 10;
if a[i] mod 3 = 0 then begin
i1:=i1+a[i];
end;
x:=x div 10;
end;
write(i1);
<span>end.
2)
Немного не понял:
var a:array [1..4] of integer;
var i,n,y: integer;
begin
n:=1;
for i:=1 to 4 do begin
writeln('Введите ',n, ' число');
read(a[i]);
if a[i]<0 then y:=y+1;
n:=n+1;
end;
write('Отрицательных чисел: ',y);
end.
<span>
3)
var i,y,x: integer;
begin
writeln('Выберите действие: 1)y=x^3 + x; 2)y=(x+1)^2; 3)y=sqr(x+4)');
read(i);
if i=1 then begin
writeln('Введите x');
read(x);
write('y=',(x*x*x)+x);
end
else begin
if i=2 then begin
writeln('Введите x');
read(x);
write('y=',(x+1)*(x+1));
end
else begin
if i=3 then begin
writeln('Введите x');
read(x);
write('y=',sqrt(x+4));
end;
end;
end;
end.<span>
</span></span></span>
Eyedropper с английского - пипетка. Пипетка выполняет роль определения цвета на пикселе, который вы указали курсором. Затем он может использоваться для рисования/заливки цветом, которым Вы выбрали. Единственное, что подходит под это - f.
В десятичной системе; в пятеричной системе
0-0
1-1 5^0=вес 1
2-2
3-3
4-4
5-10 цифра 0 имеет вес 1 цифра 1 имеет вес 5 (5^1) "5"-основание системы
6-11 цифра 1(правая) имеет вес 1(5^0=1), цифра 1(левая) имеет вес 5(5^1=5)
7-12 цифра 2 имеет вес 1(5^0=1), цифра 1 имеет вес 5(5^1=5)
8-13 3==1(вес) , 8===5(вес)
9-14
10-20 0 имеет вес 1(5^0=1), 2 имеет вес 5(5^1=5)
11-21
12-22
13-23
14-24
15-30
16-31
17-32 2===1, 3====5
18-33 3===1,3====5
19-34 4===1,3====5 в остальных случая аналогично
20-40
Итак создай табличку с заголовками что-то типа "Необходимая сумма через 3 года", "Процентная ставка за год", "количество лет, требуемое для достижение указанной суммы" и "средства, необходимые для вложения"
Если такие ячейки создавать подряд, то пусть первая будет в a1, вторая в b1 и т.д.
Отворматируй весь столбец A в денежный с долларамми США (выдели стобец нажав на название столбюца "A", правой кнопкой мыши щелкни по выделенному стобцу(вызови контекстное меню) и выбери там "Формат ячеек", во вкладке число выбери "Денежный" и в Обозначении выбери "$ Английский (США)" ), столбец B в "Процентный" (делается так же только выберается не денежный а процентный), столбец C сделай числовым и уменьши кол-во знаков после запятой до 0(все там же), D должен быть опять-таки денежным в долларах США.
После этого напиши простой пример - в b2 занеси 3 (%), в с2 - 1 (год), в D2 - 1000 ($). Попробуй постоить формулу для вычисления первого столбца. Она будет естественной равна =D2+(D2*B2)*C2. Соотевественно она и будет использоваться в ячейке a2.
После этого выделяем на ячейку А2(с формулой), после этого для офиса 2007 надо зайти во вкладку "данные", в комбо-боксе "Работа с данными" выбрать "Анализ "что-если", и в меню выбрать "Подбор параметров". В 2003 кажется это делается в меню "Сервис/подбор параметров"
Появится окошко, изображенное на рисунке 1.
В верней части(верхнем поле, верхнем текстбоксе) расположена ячейка, в которой будет храниться результат(ее менять не надо, ибо с нее же и берется формула для подбора аргументов)
В сренем поле находится то значение, до каторого нужно подогнать формулу, в нашем случае 50000 - вводим данное значение в поле.
В нижнее поле нужно ввести те ячейки, которые будут подгоняться под значение. В нашем случае это D2. Для выбора именно этой ячейки кликнем на иконку рядом с полем и выделим ячейку D2, потом еще раз кликнем на иконку в изменившемся окошкке и оно вернется к первоначальному виду с уже введенной информацией. Жмем ОК и автоподбор пошел. При обнаружении решения эксель выдаст сообщение об этом событии окошком, изображенном на втором рисунке. Нажми ок - и все!
Если не понятно - скинул еще и EXEL-евский документ. В нем в начале - два примера, в конце - просчитанный вариант под твои параметры.