Program wk;
var mas:array [1..10] of integer;sr,k,i:integer;
begin
k:=0;
sr:=0;
for i:=1 to 10 do
begin
readln(mas[i]);
if (mas[i] div 10)<>0 then
begin
sr:=mas[i]+sr;
k:=k+1
end;
end;
writeln(sr/k)
end.
<span> Язык программирования создал профессор Высшей федеральной технической школы в Цюрихе Николаус Вирт (Niklaus Wirth) и назвал его именем известного французского математика и философа Блеза Паскаля (Blaise Pascal, 1623-1662 гг.). Начало создания Паскаля связано с усилиями Н.Вирта и К.Хоора (C.A.Hoore) переработать язык программирования Алгол-60 и на его основе создать новый. Примерно в 1968 г. бал подготовлен проект языка и начата разработка его транслятора для вычислительной машины CDC 6400, который был готов в 1970 г. В 1971 г. было представлено первое официальное описание языка (Wirth N. The Programming Language Pascal // Acta Informatica. - 1971. Vol1.N1.)</span><span>Интенсивнее всего язык распространялся в 1972-1975 гг. Он удостоился всеобщего признания и стал основным языком публикации программ и преподавания дисциплины программирования. В 1975 г. была создана ассоциация пользователей Паскаля. Позже язык подвергся критике. Пользователи были не удовлетворены слишком строгими ограничениями некоторых конструкций языка. В 1977 г. была создана группа по разработке стандарта языка Паскаль. Ею руководил А.Эддиман (A.M.Addyman). В 1983 г. 1 декабря был объявлен международный стандарт языка Паскаль ИСО 7185.
(В.Тумасонис, В.Дагене, Г.Григас. "Справочник. Паскаль. Руководство программиста" Москва. Радио и связь. 1992г.)</span><span>В 1992 г. фирма Borland International выпустила два пакета программирования, основанные на использовании языка Паскаль - Borland Pascal 7.0 и Turbo Pascal 7.0.
Пакет Borland Pascal 7.0 учитывает многие новейшие достижения в программировании и практике создания программ и включает в себя три режима работы в обычном режиме операционной системе MS DOS, в защищенном режиме MS DOS и в среде Windows.Обладая рассширенными возможностями, пакет требует значительных ресурсов (~ 30 Mb на жестком диске и і 2 Mb ОЗУ). Пакет Turbo Pascal 7.0 обладает ограниченными возможностями и позволяет работать только в обычном режиме MS DOS, но может быть использован практически на любой машине (вплоть до 286) и стоит дешевле.
(А.П,Епанешников, В.А.Епанешников . "Программирование в среде Turbo Pascal 7.0" Мосвка. "Диалог-МИФИ". 1995)</span><span>На современных компьютерах некоторые модули Turbo Pascal 7.0 (например, CRT) работают некорректно. Лучше использовать Borland Pascal 7.0.
В настоящее время, язык Паскаль является общепризнанным языком обучения программированию, сочетающем в себе все основные свойства серьезного алгоритмического языка программирования высокого уровня и доступную форму, позволяющую начинающему программисту освоить технологию создания программы. Кроме того, существуют пакеты, основанные на использовании Паскаля (Delphi, компонентный Паскаль), использующие современный объектно-ориентированный подход.</span>
Полное имя файла включает в себя путь и имя(название) файла.
Ответ:
У каждого есть свои замыслы и идеи по поводу техники. Что на счёт меня, моя техника мечты - это домашний робот-компьютер со встроенным искусственным интеллектом. Он может служить отличным помощником в домашних делах, хорошим собеседником и просто средством для развлечений. Проблема, к примеру, с математикой? Не нужно печатать и искать какой-то сайт с объяснениями. Можно спросить у робота. Он не только может помочь решить, но и объяснит возможные ошибки. В таких же случаях его можно использовать, когда нужен совет или что-то подобное. А когда совсем скучно, можно попросить его сыграть с тобой в какую-нибудь игру. И робот сразу подключается через интернет к твоему игровому серверу и весёлое время препровождения гарантировано.
Объяснение:
Держи. Если я правильно поняла вопрос, конечно...
Program p1;
Var a,b,c,s,i:integer;
Begin
Write('Введите первый член прогрессии: ');
Readln(a);
Write('Введите разность чисел прогрессии: ');
Readln(b);
Write('Введите количество чисел прогрессии: ');
Readln(c);
for i:=1 to c do
Begin
s:=s+a;
a:=a+b;
End;
Writeln('Сумма членов прогрессии: ',s);
<span>End.</span>