Var a,b: integer; begin read(a,b); write((a+b)/2); end.
rusdtver
02.02.2022
1) это полное имя файла 2) это путь до папки "system" 3) это относительное имя файла 4) это относительное имя файла 5) это относительное имя файла, без расширения скорей всего, тут имелось ввиду имя файла, находящееся в текущем каталоге. ответ: 4 p.s. в принципе, именем файла может быть и exe, если оно не является расширением. если в в 5 варианте ответа перед exe не стоит точка, то это может быть именем файла. но, если перед exe стоит точка, то это расширение имени файла..
stark11
02.02.2022
//pascalabc.net 3.1 сборка 1239 uses system; uses system.collections; begin var d : = datetime.today; repeat d : = d.adddays(1); until d.dayofweek = dayofweek.sunday; var sundays : = new dictionary< integer, integer> (); repeat if sundays.containskey(d.year) then sundays[d.year] += 1 else sundays.add(d.year, 1); d : = d.)); until d.year < = 1; var max : = sundays.values.max; sundays.where(x -> x.value = max).println; end.
Ответить на вопрос
Поделитесь своими знаниями, ответьте на вопрос:
Паскаль програма знаходження середнього арифметичного двох чисел