<span>a = 40 b = 10
b = - a / 2 * b
</span>b = - 40 / 2 * 10 = -200
a = 40 b = -200<span>
если a < b то c = b - a
иначе c = a - 2 * b
40 < -200 (нет)
</span>c = a - 2 * b = 40 - 2 * (-200) = 40 + 400 = 440
Ответ: 440
Не уверен, но надеюсь правильно)
var a,b,Cmod,Cdiv:integer;
begin
readln(a);
readln(b);
Cmod:=a;
Cdiv:=0;
repeatCmod:=Cmod-b;
inc(Cdiv);
until Cmod<b;
writeln(Cdiv,' ',Cmod);
readln;
<span>end.</span>
Решение задачи в приложенном файле.
Ответ TFSBGJNB
(1-ая программа - шифратор. 2-ая - решение к первой части задания)
//PascalABC.NET
2)
begin
arrrandom(20, 0, 15).Println.Where(x -> x.IsOdd).Count.Println;
end.
3)
begin
readarrinteger('Введите результаты подтягиваний 18 учеников:', 18).Min.Println();
end.