Двойной щелчок - два щелчка мышью, которые происходят с маленькой задержкой.
Отличается от обычного тем, что выделяет любой текст.
<h3>PascalABC.NET 3.4.2, сборка 1811 от 01.10.2018</h3><h3>Внимание! Если программа не работает, обновите версию!</h3>
begin
var p:=SeqRandomReal(ReadInteger('n='),-99,99)
.Select(t->Round(t,2)).ToArray;
p.Println;
Println('Сумма положительных',p.Where(r->r>0).Sum);
Println('Сумма отрицательных',p.Where(r->r<0).Sum)
end.
#include <iostream>
#include <string>
int main()
{
std::string number;
std::cin >> number;
std::cout << number << " - " << number.length() << "-х значное число." << std::endl;
return 0;
}
В слове ЗИМА обозначаем буквы их порядковым номером: З - девятая буква алфавита, И - 10, М - 14, А -1.
Получаем последовательность 9 10 14 1.
ИНТЕРНЕТ.
Букву И сдвигаем на 9 букв, получаем С,
букву Н сдвигаем на 10 букв, получаем Ч
букву Т сдвигаем на 14 букв, получаем А (так как сдвиг на 13 это буква Я, алфавит начинается заново, 14 будет буква А)
букву Е сдвигаем на 1 букву, получаем Ж (если в алфавите Ё не считается)
Букву Р сдвигаем на 9 букв, получаем Щ,
букву Н сдвигаем на 10 букв, получаем Ч
букву Е сдвигаем на 14 букв, получаем У
букву Т сдвигаем на 1 букву, получаем У
ИНТЕРНЕТ = СЧАЖЩЧУУ
КОМПЬЮТЕР
букву К сдвигаем на 9 букв, получаем У
букву О сдвигаем на 10 букв, получаем Ш
букву М сдвигаем на 14 букв, получаем Ъ
букву П сдвигаем на 1 букву, получаем Р
букву Ь сдвигаем на 9 букв, получаем Е
букву Ю сдвигаем на 10 букв, получаем З
букву Т сдвигаем на 14 букв, получаем А
букву Е сдвигаем на 1 букву, получаем Ё
букву Р сдвигаем на 9 букв, получаем Щ
КОМПЬЮТЕР = УШЪРГЗАЁЩ
АЛГОРИТМИЗАЦИЯ
букву А сдвигаем на 9 букв, получаем И
букву Л сдвигаем на 10 букв, получаем Х
букву Г сдвигаем на 14 букв, получаем Р
букву О сдвигаем на 1 букву, получаем П
букву Р сдвигаем на 9 букв, получаем Щ
букву И сдвигаем на 10 букв, получаем Т
букву Т сдвигаем на 14 букв, получаем А
букву М сдвигаем на 1 букву, получаем Н
букву И сдвигаем на 9 букв, получаем С
букву З сдвигаем на 10 букв, получаем С
букву А сдвигаем на 14 букв, получаем Н
букву Ц сдвигаем на 1 букву, получаем Ч
букву И сдвигаем на 9 букв, получаем С
букву Я сдвигаем на 10 букв, получаем И
АЛГОРИТМИЗАЦИЯ = ИХРПЩТАНССНЧСИ
Var pass,s:string; k:integer;
begin
pass:='12345';
k:=0;
repeat
writeln('Введите пароль:');
readln(s);
k:=k+1;
until (s=pass)or(k=3);
if s=pass
then writeln('Можно приступать к работе')
else writeln('Вызываю охрану');
end.
Пример:
Введите пароль:
1
Введите пароль:
12345
Можно приступать к работе