i изменяется от 12
до 7
с шагом -1
Этот текст добавлен, чтобы добрать необходимые 20 символов.
a=2
b=8
цикл произошел два раза из-за a:=a+1
значит x равен от 100 до 9999(при прохождении получаются числа от 0,01 до 0,9999)
теперь остался b:
b в начале был равен и получил 8 при цикле. mod узнаёт остаток деления на 100 которое прошло 2 раза. посмотрим если выберем 9999
9999(остаток 99) -> 99,99(остаток 99+99). вывод: программа под буквой b вычислила сумма всех двузначных чисел. значит самое максимальное 800( 8 и 0) т.к. если выбрать больше 999 то 1000 это сумма 10 и 0 что не подходит. а нам надо самое максимальное.
Ответ:800
Следуя закону Мура об удвоение вычислительной мощности процессора за год, у нас получить четверть 100:4=25 лет и получаем что мощность должна увеличиться в раз.
Var x,y:real;
begin
write('x = ');
readln(x);
y:=x/3;
writeln('y = ',y);
end.
Пример:
x = 15
y = 5
Программа работает в следующем виде:
n = InputBox(vbLf & "Напиши значение ""n"" (количество расчетов)")
ReDim X(n)
ReDim Y(n)
Randomize
For i = 1 To n
X(i) = 5 - 10 * Rnd
Next
S = 0
For Each b In X
S = S + X(1) / i
Next
MsgBox "S=" & S
Нижние строки я убрал, потому что не понял, зачем они и что должны выводить: в задании про них ничего не сказано.