Найти среднее арифметическое всех положительных целых чисел от a до b (b> =a) если таких чисел нет то вывести сообщение "таких чисел нет" программа на паскале (net или abc)

Program task; const a = 5; b = 10; var i, c, d: integer; begin if a > b then writeln('ошибка') else begin for i : = a to b do if i > 0 then begin c : = c + i; d : = d + 1; end; if d > 0 then writeln('результат: ', (c / d): 5: 2) else writeln('таких чисел нет'); end; end.

1:
Для создания абсолютной адресации используется знак $. Это правило позволяет зафиксировать адрес ячейки(оставить без изменения при копировании или перемещении).

2.1:
При копировании в L5
=(L1+$K2+L$3+$K$4)/4

2.2:
При копировании в M10
=(M6+$K7+M$3+$K$4)/4

3.1:
При копировании в B19
=СРЗНАЧ(B$1:B18)

3.2:
При копировании в C22
=СРЗНАЧ(C$1:C21)

В 1988 году была отмечена эпидемия компьютерного вируса Jerusalem, который был запрограммирован на особенно разрушительные действия, если активировался в пятницу 13-го. В первый раз это произошло в пятницу 13 мая 1988 года. Этот чёрный юмор был перенят авторами некоторых других компьютерных вирусов.

Хуйвыввввввввырр рпаври рнввлд