var a,s:integer;
begin
s:=0;
writeln('Введите числа');
repeat
readln(a);
if (a>9)and(a<99) then
s:=s+a;
until a=0;
writeln(s);
end.
<span>MSAccess - специальное назначение
HTML - системы программирования
"консультант Плюс" - не знаю такой программы
sound.drv - судя по названию это драйвер
basic - </span><span><span>системы программирования
</span>c+, Фортан ,паскаль </span><span><span>- системы программирования
</span>Linux - операционная система
FoxPro - наверно чтото профессиональное
MSWord, MSExcel - специального назначения
macromediaFlash </span>- професиональное
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadSeqReal('Вводите последовательность',ReadInteger('N=')).Reverse.Println
end.
<u>Пример</u>
N= 10
Вводите последовательность 5 9 3.15 -6.7 0 12 100 35 0.03 1e-20
1E-20 0.03 35 100 12 0 -6.7 3.15 9 5
Как я понимаю, то растровые - GIF, JPEG, PNG, PSD, BMP.
векторные - PDF, Cdr, Swf.
72 клетки. Поле 9 на 9. Не закрашено 9 клеток. Значит 81-9=72