Эту нам дали из электива по информатики начинаться должно так program abc; var a, b, c: integer; begin и дальше пож

Var a,b,c: integer; begin       writeln('введите числа');       readln(a,b,c);       if ((a> b) and (b> c)) or ((c> b)and(b> a)) then writeln('число по середине b=',b);       if  ((a> c) and (c> b)) or ((c> a)and(b> c))  then writeln('число по середине c=',c);       if  ((b> a) and (a> c)) or ((a> b)and(c> a))  then writeln('число по середине a=',a);       readln; end.

Var a,b,c: integer; begin readln(a,b,c); writeln('ваше число равняется '); writeln(b); end. я так понял

Sub calculate() dim coll as collection dim i as integer dim sum as double dim negative as integer dim composition as integer negative = 0 composition = 1 set coll = new collection sum = 0 n = cint(inputbox("введите количество чисел", "ввод", "", 2000, 2000)) for i = 1 to n elmnt = cint(inputbox(i & " число", "ввод", "", 2000, 2000)) coll.add elmnt sum = sum + elmnt next i for i = 1 to coll.count if (coll.item(i) < 0) then negative = negative + 1 end if if (coll.item(i) mod 2 = 1) then composition = composition * coll.item(i) end if next i msgbox "количество отрицательных = " & negative & vbcrlf & "произведение нечетных = " & composition & vbcrlf, vbokonly, "результаты" end sub

1. в переменную d записывается остаток от деления числа 2, который совпадает с остатком от деления последней цифры на 2; k инициализируется нулем. затем, пока n > 1, последняя цифра числа сравнивается с d, и если она совпадает с d, k увеличивается на 1. после сравнения последняя цифра отбрасывается. результат подсчета выводится на экран. итак программа вычисляет количество цифр, с остатком от деления последней цифры на 2 без учета первой цифры, если она 1. n = 1961: будет выведено 1 (первая единица не в счет, кроме неё в числе остается только одна единица) 2. n от 101 до 109 не подойдут: если число четное, не будет учтена последняя цифра, если нечетное – то первая. n = 110 подходит: будет выведено 1. 3. ошибки ясны из описания в пункте 1: сравниваются не остаток от деления и d, а цифры и d; если первая цифра 1, она не учитывается. исправления: while n > 1 надо поменять на  while n > 0 if n mod 10 = d надо поменять на  if n mod 2 = d