Pascal:
program Main;
uses crt;
var a,b: integer;
begin
readln(a,b);
If(a>b) then writeln(b);
else writeln(a);
end.
C++:
#include <iostream>
int main() {
int a,b;
std::cin >> a >> b;
if(a >b) std::cout << b;
else std::cout << a;
system("pause");
return 0;
}
===== PascalABC.NET =====
begin
var a := ArrRandomReal(10, -99, 99); // случайные числа
a.Transform(p -> Round(p, 2)); // дробная часть - 2 знака
a.Println;
for var i := 0 to a.High do
if a[i] > 0 then
a[i] /= 2
else if a[i] < 0 then
a[i] := i + 1;
a.Println
end.
Var N1:array[1..10] of integer;
N2:array[1..15] of integer;
R1:array[1..10] of integer;
R2:array[1..15] of integer;
min1, min2, max1, max2, i:integer;
R1min, R2min, R1max, R2max:integer;
begin
min1:=500;
min2:=500;
max1:=0;
max2:=0;
randomize;
for i:=1 to 10 do
N1[i]:=random(900)+100;
for i:=1 to 15 do
N2[i]:=random(900)+100;
for i:=1 to 10 do
R1[i]:=random(500);
for i:=1 to 15 do
R2[i]:=random(500);
for i:=1 to 10 do
if R1[i]<min1 then
begin
min1:=R1[i];
R1min:=i;
end else
begin
if R1[i]>max1 then
begin
max1:=R1[i];
R1max:=i;
end;
end;
for i:=1 to 15 do
if R2[i]<min2 then
begin
min2:=R2[i];
R2min:=i;
end else
begin
if R2[i]>max2 then
begin
max2:=R2[i];
R2max:=i;
end;
end;
writeln('v 1 taxoparke min ', N1[R1min]);
writeln('vo 2 taxoparke min ', N2[R2min]);
writeln('v 1 taxoparke max ', N1[R1max]);
writeln('vo 2 taxoparke max ', N2[R2max]);
write('N1 ');
for i:=1 to 10 do
write(N1[i], ' ');
writeln;
write('R1 ');
for i:=1 to 10 do
write(R1[i]:3, ' ');
writeln;
write('N2 ');
for i:=1 to 15 do
write(N2[i], ' ');
writeln;
write('R1 ');
for i:=1 to 15 do
write(N1[i]:3, ' ');
writeln;
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ФЗ «О связи».
