A)
var a: string;
i: integer;
begin
readln(a);
for i := 1 to length(a) do
if (a[i] <> UpCase(a[i])) then
write(a[i], ' ');
<span>end.
b)
var a: string;
i, p: integer;
q: boolean;
begin
readln(a);
for p := 0 to 9 do
for i := 1 to length(a) do
if (a[i] = inttostr(p)) then
q := true;
writeln(q);
<span>end.
c)
var a: string;
i, p, u: integer;
o: array [0..5] of char;
begin
readln(a);
o[0] := '('; o[1] := ')'; o[2] := '{'; o[3] := '}'; o[4] := '['; o[5] := ']';
for p := 0 to 5 do
for i := 1 to length(a) do
if (a[i] = o[p]) then
u := u + 1;
writeln(u);
<span>end.
d)
var a: string;
i, p: integer;
o: array [0..7] of char;
begin
readln(a);
o[0] := '('; o[1] := ')'; o[2] := '?'; o[3] := '!'; o[4] := '"'; o[5] := '.'; o[6] := ','; o[7] := ',';
for i := 1 to length(a) do
for p := 0 to 7 do
if (a[i] = o[p]) then
writeln(a[i]);
<span>end.
Ну вот:) <em>О, мой мозг, как же тебе досталось! ~_~</em></span></span></span></span>
Массив заполним случайными целыми от 0 до 20
//PascalABC.NET (версия 3.1, сборка 1198 от 11.03.2016)
begin
var a:=arrrandom(15,0,20);
println(a);
var s:=0;
for var i:= 0 to 14 do
if (a[i]>10) and (a[i]<15) then s +=1;
println('таких чисел ',s);
end.
Работа на компьютере надо сначала Учителя не поднимать кресло
1. Конституция РФ (ст. 15 официальная публикация законов; ст. 23 неприкосновенность частной жизни, тайна переписки и телефонных переговоров и сообщений; ст. 29 свобода слова и мысли, право на информацию и проч.). 2. Гражданский кодекс РФ (ст. 128 интеллектуальная собственность как объект гражданского права; ст. 150: нематериальные блага: достоинство личности, честь и доброе имя, деловая репутация, неприкосновенность частной жизни, личная и семейная тайна, право авторства и иные личные неимущественные права и другие нематериальные блага; ст. 434 форма договора: договор в письменной форме может быть заключен путем обмена документами посредством электронной связи, позволяющей достоверно установить, что документ исходит от стороны по договору и проч.).3. Уголовный кодекс РФ (ст. 129 клевета; ст. 130 оскорбление, ст. 137 нарушение неприкосновенности частной жизни; ст. 138 нарушение тайны переписки, телефонных переговоров, почтовых, телеграфных или иных сообщений; ст. 146 нарушение авторских и смежных прав; ст. 182 заведомо ложная реклама; ст. 237 сокрытие информации об обстоятельствах, создающих опасность для жизни или здоровья людей; ст. 272 неправомерный доступ к компьютерной информации; ст. 273 создание, использование и распространение вредоносных программ для ЭВМ; ст. 283 разглашение государственной тайны; ст. 303 фальсификация доказательств и проч.).4. Кодекс об административных правонарушениях РФ (глава 13. Административные правонарушения в области связи и информации).5. Закон от 07.02.1992 № 23001 «О защите прав потребителей» (ст. 26.1. Дистанционный способ продажи товара, под которым в том числе понимается продажа товара через Интернет).6. Закон РФ от 27.12.1991 № 2124I «О средствах массовой информации».7. Федеральный закон от 13.01.1995 № 7ФЗ «О порядке освещения деятельности органов государственной власти в государственных средствах массовой информации».8. Федеральный закон от 13.01.1995 № 7ФЗ «О порядке освещения деятельности органов государственной власти в государственных средствах массовой информации».9. Федеральный закон от 07.07.2003 № 126ФЗ «О связи».
Ответ:
program a;
var q,w:integer;
begin
write(' Cколько раз повторить?');
readln(q);
for w:=1 to q do
writeln('Привет!');
end.
Объяснение:
