Язык Pascal. Напишите программу, которая позволяет вводить дату в "американском" формате-мм/дд/гг, - и преобразовывает её в формат дд. мм. гг. На фото я уже что-то набросала, остальсь наверное немного доработать.
В день, огромное количество людей регистрируются на огромном количестве разных сайтов, игр и соц. сетях. Далеко не все указывают сложный пароль. И это достаточно часто приводит к взлому аккаунта. Рассмотрим основные правила создания паролей:
1. Надежный пароль состоит из минимум 10 символов. А пароли на самые важные ресурсы, которыми вы пользуетесь должны содержать от 20 до максимально-допустимого количества символов.
2. Пароль не должен содержать: ваше имя, вашу дату рождения, ваш адрес и так далее.
3. В нем должны использоваться буквы разного регистра (маленькие и большие)(не все сайты поддерживают большие буквы в паролях). Так же в пароле не обойтись и без цифр, а так же символов.
4. Не советуем использовать словарные слова в пароле (даже написанные транслитом). Лучше всего выдумать слово (например Alofargonediers или вовсе набор букв Jhdjgdkfnkgskaokalkf).
Для разных сайтов должны быть разные пароли. Так как если взломают один аккаунт то доберутся и до других.
Пароли необходимо надежно хранить. Запрещается: говорить пароль друзьям и другим знакомым, записывать пароли в электронный текстовый документ (например в Word), а так-же на флешках и в интернете.
#1
var
A : array [1..21] of integer;
min : integer := 32766;
begin
for var i:=1 to 21 do
readln(A[i]);
for var i:=1 to 21 do
if (A[i] < min) then
min := A[i];
writeln(min);
end.
#2
var
Y : array [1..25] of integer;
isthefirst : boolean := false;
last : integer := 0;
begin
for var i:=1 to 25 do
readln(Y[i]);
for var i:=1 to 25 do
if (Y[i] < 0) and (isthefirst = false) then
begin
writeln(i);
isthefirst := true;
break;
end;
for var i:=2 to 25 do
begin
if (i = 25) then
begin
if (Y[i] < 0) and (last = 0) then
last := i;
break;
end;
if ((Y[i+1] > 0) and (Y[i] < 0)) then
last := i;
end;
if (isthefirst) and (last = 0) then
last := 1;
if (last <> 0) then
writeln(last) else
writeln('There''no numbers');
end.
//Не бейте за кастыли Мне лень думать)))000
#2
type TIntMassiv = array of Integer; //Дин. Массив (Более гибок в работе)
var
n : integer;
sum : integer := 0;
counter : integer := 0;
var A: TIntMassiv;
begin
readln (n);
SetLength(A, n);
for var i:=0 to n-1 do
begin
readln(A[i]);
if (A[i] > 0) and (A[i] mod 2 = 0) then
begin
sum += A[i];
counter += 1;
end;
end;
if (sum = 0) or (counter = 0) then
begin
writeln('There''re no numbers');
exit;
end;
writeln(sum/counter);
end.
Правила создания пароля.
В день, огромное количество людей регистрируются на огромном количестве разных сайтов, игр и соц. сетях. Далеко не все указывают сложный пароль. И это достаточно часто приводит к взлому аккаунта. Рассмотрим основные правила создания паролей:
1. Надежный пароль состоит из минимум 10 символов. А пароли на самые важные ресурсы, которыми вы пользуетесь должны содержать от 20 до максимально-допустимого количества символов.
2. Пароль не должен содержать: ваше имя, вашу дату рождения, ваш адрес и так далее.
3. В нем должны использоваться буквы разного регистра (маленькие и большие)(не все сайты поддерживают большие буквы в паролях). Так же в пароле не обойтись и без цифр, а так же символов.
4. Не советуем использовать словарные слова в пароле (даже написанные транслитом). Лучше всего выдумать слово (например Alofargonediers или вовсе набор букв Jhdjgdkfnkgskaokalkf).
Для разных сайтов должны быть разные пароли. Так как если взломают один аккаунт то доберутся и до других.
Пароли необходимо надежно хранить. Запрещается: говорить пароль друзьям и другим знакомым, записывать пароли в электронный текстовый документ (например в Word), а так-же на флешках и в интернете.