Записать решение и блок схему для программы. Условие; за чисел и выведите на экран для каждого, делиться ли оно нацело на 7. Решить задачу нужно через все три цикла с постусловием, предусловием, параметром
Это 3 разные программы, все проверил на pascal abc.net, удачи) 1)uses crt; var a:array [1..10] of integer; i,n,t:integer; begin clrscr; n:=10; for i:=1 to n do begin read(a[i]); end; t:=1; for i:=n downto 1 do begin if a[i] mod 2=1 then begin write(a[i],' '); t:=t*a[i]; end; end; writeln('Произведение нечетных элементов=',t); readln; end. 2) uses crt; var a:array [1..20] of integer; i,n,t:integer; begin randomize; clrscr; n:=20; for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); end; t:=0; for i:=1 to n do begin if i mod 2=1 then begin write(a[i],' '); t:=t+a[i]; end; end; writeln('Сумма четных элементов=',t); readln; end. 3)uses crt; var a:array [1..20] of integer; i,n,t:integer; begin randomize; clrscr; n:=20; for i:=1 to n do begin a[i]:=random(50)-random(50); write(a[i],' '); end; t:=0; for i:=1 to n do begin if a[i]>0 then begin t:=t+1; end; end; writeln('Кол-во положительных элементов=',t); readln; end.
Структура верхнего уровня доменных именВ наименовании компьютеров в Системе доменных имен (DNS) существует иерархия имен. Корень системы не имеет названия. Существует ряд так называемых «доменов верхнего уровня» (TLD). Среди них есть TLD общего назначения (EDU, COM, NET, ORG, GOV,MIL и INT), и двухбуквенные коды стран из списка ISO-3166. Крайне маловероятно появление каких-либо других TLD.Под каждым TLD может быть создана иерархия имен. Обычно, в TLD общего назначения используется плоская (неглубокая) структура. То есть, многие организации регистрируются прямо в TLD, дальнейшее же структурирование зависит от желания этих организаций.Национальные TLD сильно отличаются друг от друга по структуре, в некоторых странах структура очень плоская (неглубокая), в других встречается значительное структурное подразделение. В некоторых национальных доменах, домены второго уровня представляют собой общие категории (такие как AC, CO, GO и RE), в других они базируются на политической географии страны, ну а в третьих, названия организаций указываются непосредственно под кодом страны. Устройство национального домена US описано в документе RFC 1480 [1].Каждый TLD общего назначения был создан для общих категорий организаций. Каждый национальный домен (например, FR, NL, KR,US) структурирован его администратором для соответствующей страны. Эти администраторы могут в дальнейшем делегировать управление частями дерева доменных имен. Эти администраторы от лица Интернет сообщества оказывают услуги всему обществу. Описания доменов общего назначения и национального домена US, приведены ниже.Пять доменов общего назначения являются международными по сути, а два ограничены для использования организациями Соединенных Штатов Америки.Всемирные домены общего назначения:COM — Данный домен предназначен для коммерческих предприятий, то есть компаний. Этот домен значительно разросся, что вызывает опасения по поводу административной нагрузки и функционирования системы в будущем при сохранении динамики роста. В частности, рассматривался вопрос о разбиении домена COM и регистрации в будущем лишь на коммерческой основе в поддоменах.EDU — Этот домен изначально предназначался для образовательных учреждений. Многие Университеты, колледжи, школы, учебные организации, и образовательные союзы были зарегистрированы в нем. Не так давно было принято решение об ограничении дальнейших регистраций до Университетов и колледжей с 4-х летней программой обучения. Школы и колледжи с 2-х летней программой обучения будут регистрироваться в национальных доменах (см. домен US, K12 и СС ниже)NET — Этот домен предназначен только для компьютеров сетевых провайдеров, то есть компьютеров информационных и операционных сетевых центров, административных компьютеров и компьютеров сетевых узлов. Клиенты сетевых провайдеров должны иметь свои собственные домены (не в домене NET).ORG — Этот домен предназначен для тех организаций, которые не подходят под другую категорию. В частности, некоторые неправительственные организации могут быть зарегистрированы здесь.INT — Этот домен для организаций, созданных по международным договорам, или для международных баз данных.Домены общего назначения США:GOV — Этот домен при создании предназначался для любого правительственного органа или агентства. Недавно было принято решение о регистрации в данном домене лишь агентств Федерального правительства США. Агентства уровня штата или местные агентства регистрируются в национальном домене (см. домен US ниже).MIL — Этот домен используется вооруженными силами США.
1)uses crt;
var a:array [1..10] of integer;
i,n,t:integer;
begin
clrscr;
n:=10;
for i:=1 to n do begin read(a[i]); end;
t:=1;
for i:=n downto 1 do begin
if a[i] mod 2=1 then begin write(a[i],' '); t:=t*a[i]; end;
end;
writeln('Произведение нечетных элементов=',t);
readln;
end.
2) uses crt;
var a:array [1..20] of integer;
i,n,t:integer;
begin
randomize;
clrscr;
n:=20;
for i:=1 to n do begin a[i]:=random(10); write(a[i],' '); end;
t:=0;
for i:=1 to n do begin
if i mod 2=1 then begin write(a[i],' '); t:=t+a[i];
end;
end;
writeln('Сумма четных элементов=',t);
readln;
end.
3)uses crt;
var a:array [1..20] of integer;
i,n,t:integer;
begin
randomize;
clrscr;
n:=20;
for i:=1 to n do begin a[i]:=random(50)-random(50); write(a[i],' '); end;
t:=0;
for i:=1 to n do begin
if a[i]>0 then begin t:=t+1; end;
end;
writeln('Кол-во положительных элементов=',t);
readln;
end.