Компьютер- это устройство для обработки и хранения информации, в 20 веке изобрели.
Var x,y:integer;
begin
readln (x);
y:=2*Power(x,2) +3;
writeln (y);
end.
Перед циклом значение d = 5 - 3 = 2.
В цикле переменная d суммируется с переменной n.
d := 2 + 1 = 3.
d := 3 + 2 = 5.
d := 5 + 3 = 8.
d := 8 + 4 = 12.
Ответ: 12.
Решение в лоб для второй задачи.
<span>n = int(input())
m = int(input())
ticket = 0 <span># счетчик счастливых билетиков
</span>for i in range(int(n), int(m)+1)<span>:
</span> sum_check = 0 <span># проверочная сумма
</span> s = str(i) <span># создаем строку из нового билетика
</span> for j in range(len(s)): <span># проходим по всем числам
</span> if j%2 == 0: <span># если место числа четное
</span> sum_check += int(s[j]) <span># то прибавляем числа на этом месте
</span> else<span>:
</span> sum_check -= int(s[j]) <span># то отнимаем число на этом месте
</span> if sum_check == 0: <span># если контрольная сумма равна нулю, то билетик счастливый
</span> ticket +=<span>1
</span>print(ticket)</span>
Задача будет выполняться при соблюдении условия. Необходимо вводить 2 числа. Это необходимо что бы определить, является ли число целым. (числа нужно вводить одинаковые.
var y,c:real;
a,b:integer;
begin
writeln('Введите 2 одинаковых числа');
readln(a,b);
c:=a/b;
if (a>b) or (a<b) then
y:=c/2
else
y:=c*10;
writeln(y);
<span>end.</span>
