S := 500, то есть s изначально была равна 500
Затем начинается цикл for, в каждом повторе цикла переменная k увеличивается на 1, от 4 до 10. То есть в первом повторе k=4, во втором k=5, и так до тех пор, пока k не станет равна 10.
При этом каждый повтор цикла от S отнимается 2*k, то есть в первом повторе от s будет отнято 2*4=8, во втором 2*5 = 10, в третьем 2*6=12 и так далее.
Можно решить, рассмотрев все повторы цикла, у нас получится:
500-8-10-12-14-16-18-20 = 402
Можно найти сумму чисел, которые будут вычтены из S. Числа представляют собой арифметическую прогрессию с разницей в 2, первый элемент прогрессии 8, всего чисел 7.
Сумму первых членов прогрессии найдем по формуле ((2*8+2(7-1))/2)*7 = 98
500-98 = 402
Var a,b:integer;
begin
writeln('Введите число');
readln(a);
writeln('Введите цифру');
read(b);
if ((a mod 10)<>b) and ((a div 10)<>b) and (a<100) then begin
a:=a+1;
write(" ",a);
end;
end.
a) Максимальное значение суммы разрядов равно 18 (получется как 9+9).
b) Разряды результата разбиватются на два числа, первое из которых не может превышать второе.
214 разбивается на 2 и 14. Такой результат недопустим: если сумма двух чисел была равна 2, то никакое из этих чисел не даст 14 во второй сумме.
148 разбивается на 14 и 8. Такой результат недопустим: нарушен порядок следования сумм.
145 разбивается на 14 и 5. Такой результат недопустим: нарушен порядок следования сумм.
142 разбивается на 14 и 2. Такой результат недопустим: нарушен порядок следования сумм.
514 разбивается на 5 и 14. Такой результат допустим.
814 разбивается на 8 и 14. Такой результат допустим.
114 разбивается на 1 и 14. Такой результат недопустим: если сумма двух чисел была равна 1, то никакое из этих чисел не даст 14 во второй сумме.
Ответ: 2.
Тогда вот, все по букве задания
var
s : string;
t : char;
i : integer;
begin
readln (s);
read (t);
i := 1;
while (i <= length (s)) do
begin
if s[i] = t then delete (s, i, 1)
else i := i + 1;
end;
writeln (s);
<span>end.</span>
17. пиксели (px)
14. На сколько знаю форматирование это удаление всех файлов с накопителя (флешки)
4.Фотошоп, Illustrator, Sketch (здесь не уверен) Ну фотошоп сам использовал для создания макета дизайна.
2. Наверное Word
Где ты это нашел? Я такого на курсах не проходил даже...
