uses crt; var a:array[1..1000] of integer; i,n,sum:integer; begin write('Введите число: '); read(n); for i:=1 to n-1 do if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i; write(sum); end.
Персональный компьютер, пк (. personal computer, pc), пэвм (персональная электронно-вычислительная машина) — настольная микро-эвм, имеющая эксплуатационные характеристики бытового прибора и универсальные функциональные возможности. согласно гост 27201-87 пк применяются как средства массовой автоматизации (в основном для создания на их основе автоматизированных рабочих мест) в социальной и производственных сферах деятельности в различных областях народного хозяйства и предназначенные для пользователей, не специальными знаниями в области вычислительной техники и программирования. изначально компьютер был создан как вычислительная машина, но пк также используется в других целях — как средство доступа в информационные сети и как платформа для мультимедиа (мультимедиастанция) и компьютерных игр (игровой пк). компьютер обязательно должен использоваться с заземлением в розетке. без заземления величина электромагнитного поля превышает в разы допустимый безопасный уровень для здоровья человека, установленный санитарными правилами санпин 2.2.2/2.4.1340-03 «гигиенические требования к персональным электронно-вычислительным машинам и организации работы». при допустимой напряжённости электрического поля не более 25 в/м без заземления у компьютера будет ~75-100 в/м и более.
Пополнение библиотеки первейшей своей обязанностью считали птолемеи. один из царей этой династии отказался продать голодавшим афинянам пшеницу, пока те не согласились передать в александрийскую библиотеку подлинные рукописи эсхила, софокла и еврипида, с тем, чтобы с них были сняты копии. однако птолемей предпочел потерять огромную сумму - 15 талантов, - оставленную у афинян в качестве залога, чем вернуть подлинники. в афины были возвращены только копии. правда, прекрасно выполненные, но - копии.
uses crt;
var
a:array[1..1000] of integer;
i,n,sum:integer;
begin
write('Введите число: ');
read(n);
for i:=1 to n-1 do
if (i mod 3=0) and (i mod 5<>0) then sum:=sum+i;
write(sum);
end.