var
a: array[1..10] of integer; //массив а
i, index: integer; //index - индекс последнего элемента с нечетным значением
begin
write('исходный массив: ');
for i: = 1 to 10 do {заполняем массив элементами в диапазоне [1..10], печатаем его и определяем индекс последнего элемента с нечетным значением}
begin
a[i]: = random(10) + 1;
write(a[i], ' ');
if a[i] mod 2 = 1 then index: = i;
end;
writeln;
writeln('последний элемент с нечетным значением: a[', index, '] = ', a[index]);
end.
отметь решение как лучшее)
var
x: real;
cost: real; //стоимость капитала
i: integer;
begin
cost: = 20; //начальная стоимость равна 20
writeln('введите ежегодный прирост в процентах');
readln(x); //вводим ежегодный прирост в процентах
for i: = 1626 to 2012 do {каждый год стоимость капитала увеличивается на стоимость капитала * х / 100}
cost: = cost + cost * (x / 100);
writeln('стоимость капитала составляла бы в этом году: ', cost : 0 : 5, ' $'); {выводим стоимость капитала с округлением до 5 знаков после запятой}
end.
отметь решение как лучшее)
Поделитесь своими знаниями, ответьте на вопрос:
Как решить по икт? жители планеты принтер используют алфавит из 256 знаков, а жители планеты плоттер — из 128 знаков. для жителей какой планеты сообщение из 10 знаков несет больше информации и на сколько? информационное сообщение объемом 1, 5 килобайта содержит 3072 символа. сколько символов содержит алфавит, с которого было записано это сообщение? мощность алфавита равна 64. сколько кбайт памяти потребуется, чтобы сохранить 128 страниц текста, содержащего в среднем 256 символов на каждой странице?