Program zzz;
var days:integer;
var discount, sum:real;
var days2:integer;
begin
readln(days, discount, sum);
days2 := 0;
sum := 0;
discount := discount / 10;
while( days2 <= days ) do begin
sum := sum + (sum * discount); {я не до конца понял задание, посему, скорее всего, придется тут менять}
sum := sum + 3;
days2 := days2 + 1;
end;
writeln('Ответ: ', sum);
<span>end.</span>
Program n_1;
uses math;
var a:array [1..6] of integer; i: integer;
begin
for i:=1 to 6 do begin read (a[i]); a[i]:=a[i]*2; end;
writeln;
for i:=1 to 6 do write(a[i], ' ');
end.
<span>1.
1024 байт = 1 Кбайт < 1 Мбайт > 1024 байт < 1 Гбайт
2.
2^6 = 64
3.
</span><span> 1) 3 Кбита = 3000 бит = 375 байт
2) </span>3,48046875<span> Кбайт = 3564 байт = 28512 бит
3) 1,5 Гбайт = 1536 Мбайт =</span>1572864 Кбайт =1610612736 байт =<span>12884901888</span> бит
Суть программы - вводите число, оно выводит это число, если оно делится на 5 и 7, иначе ничего не выводит.
var
N: array [1..15] of 1..15; {Массив, в который записываются номера положительных элементов массива х}
x: array [1..15] of real; //Массив х
i: integer; //Переменная для цикла
Number: integer; //Сколько номеров было записано
begin
Number:= 0; //Обнуляем счетчик номеров
for i:= 1 to 15 do //Вводим с клавиатуры массив х
begin
writeln('Введите ', i, ' элемент массива х');
readln(x[i]);
if x[i] > 0 then {Если введенный элемент массива х положительный, то прибавляем к счетчику добавленных номеров 1 и присваиваем соответствующему элементу массива N номер элемента}
begin
Number:= Number + 1;
N[Number]:= i;
end;
end;
write('Номера положительных элементов массива х: ');
for i:= 1 to Number do write(n[i], ' '); //Выводим записанные номера элементов
writeln; {Переход на новую строку, чтобы при следующем запуске программы информация выводилась с новой строки}
end.