<u>PascalABC.NET 3.3.5, сборка 1659 от 09.04.2018</u>
<u>Внимание! Если программа не работает, обновите версию!</u>
<u>№1</u>
begin
var a:=ReadInteger.ToString;
Writeln(a=a.Inverse)
end.
<u>Примеры</u>
2441
False
1991
True
<u>№2</u>
begin
var n:=int64(ReadInteger);
var s:=n.ToString;
var s2:=(n*n).ToString;
if s2.Right(s.Length)=s then Writeln('Афтоморф')
else Writeln('Не автоморф')
end.
<u>Примеры</u>
625
Афтоморф
1020
Не автоморф
1. 1 Кбайт; 2. 1000 байтов; 3. 1 байт; 4. 1024 бита; 5. 1 бит
Var n: integer;
s: string;
begin
write('Введите строку символов ');
readln(s);
n:=Length(s);
for var i:= 1 to ((n-1) div 3) do
insert(',',s,n-3*i+1);
writeln(s);
end.
-----------
АБС паскаль.
типа данных для 100 цифр числа нет, поэтому вводим в строковый тип, и поэтому всё равно, что бить по три, цифры или буквы.
WWW - World Wide Web - Всемирная паутина или Паутина (Web - веб), не путать с Интернет. Эти понятия действительно часто путают, потому что они неразрывно связаны между собой с точки зрения обычного пользователя
В то время как Интернет - это именно связь сама по себе, ее физические составляющие, обеспечение связи, то Всемирная паутина - это есть наполнение/содержание этой связи.
Всемирная паутина - это система документообмена. В качестве документов обычно выступают гипертекстовые документы так же называемые веб-страницами сгруппированные по веб-сайтам, которые находятся на веб-серверах. Для просмотра веб-страниц используется приложение веб-браузер. Для обмена используется протокол HTTP (англ. HyperText Transfer Protocol — «протокол передачи гипертекста»)
Назначение? Обмен цифровой информацией наверно)
Для простого понимания:
- соц.сети, форумы, новостные сайты - это все WWW.
- Icq, Skype, Viber, Whatsapp, Telegram, почтовые клиенты и т.п. используют другие протоколы и по сути не являются частью Паутины, хотя используют Интернет
1) Берем лист бумаги, разлиновываем на квадратики, в каждый вписываем числа, начиная от 1. Кидаем на листик монетку. В какой квадрат упадет, то число и выбираем.
2) Берем несколько игральный кубиков. Кидаем, подсчитываем сумму выпавших очков.
3) Берем колоду 36 карт, вытаскиваем карту наугад. Туз 1, валет 2, дама 3, король 4, 10- 5, карты от 6 до 9 - соответственно 6-9.
