// PascalABC.NET 3.0, сборка 1073
var
a,b,c:integer;
begin
Write('Введи a,b,c: '); Read(a,b,c);
if (a=b) or (a=c) or (b=c) then Writeln('Есть пара одинаковых')
else Writeln('Все числа различные')
end.
<em><u>Тестовое решение:</u></em>
Введи a,b,c: 6 3 -12
Все числа различные
Введи a,b,c: 5 -4 5
Есть пара одинаковых
// PascalABC.NET 3.0, сборка 1073
var
n:string;
a,b:char;
begin
Write('Введи натуральное число n: '); Readln(n);
Write('Введи подряд пару разыскиваемых цифр: '); Read(a,b);
if Pos(a,n)>0 then Writeln('В числе есть цифра '+a)
else Writeln('В числе цифры '+a+' нет');
if Pos(b,n)>0 then Writeln('В числе есть цифра '+b)
else Writeln('В числе цифры '+b+' нет')
end.
<u><em>Тестовое решение:</em></u>
Введи натуральное число n: 3141592653589793
Введи подряд пару разыскиваемых цифр: 47
В числе есть цифра 4
В числе есть цифра 7
// PascalABC.NET 3.0, сборка 1073
var
i,n:integer;
fiba,fibb,fib:longint;
begin
Write('Введи натуральное число (1-46): '); Read(n);
if n<3 then Writeln('Число Фибоначчи равно 1')
else begin
fiba:=1; fibb:=fiba;
for i:=3 to n do begin
fib:=fiba+fibb;
fiba:=fibb; fibb:=fib
end;
Writeln('Число Фибоначчи равно ',fib)
end
end.
<u><em>Тестовое решение:</em></u>
Введи натуральное число (1-46): 13
Число Фибоначчи равно 233
Всеми́рная паути́на (англ. World Wide Web) — распределённая система, предоставляющая доступ к связанным между собой документам, расположенным на различных компьютерах, подключённых к Интернету. Для обозначения Всемирной паутины также используют слово веб (англ. web «паутина») и аббревиатуру WWW.
Знание того, что такое
WWW, было бы неполным без понимания генезиса данного явления. WWW
(мировая паутина) было изобретена британским учёным, сэром Тимом
Бернерсом-Ли, в 1989 году, когда он вместе со своим коллегой Робертом
Кайо попытался создать надёжный инструмент для обмена данных между
учёными-физиками. В итоге была предложена концепция единой сети,
включающая такие термины как URL (единый указатель ресурса), протокол
HTTP, HTTPS (протоколы передачи гипертекста) и язык HTML (язык
гипертекстовой разметки). При этом концепция данной сети позволяла
обмениваться данными между компьютерами с различной операционной
системой, что стало важнейшим козырем в её последующем развитии.
Program n1;
var a,b,c: real;
begin
readln(a,b,c);
if (a=b) and (a=c) and (c=b)
then writeln('переменные =')
else
begin
a:=a+10;
b:=b+10;
c:=c+10;
end;
end.
1 мегабайт-1024 килобайтов, больше 1500килобайтов, 1гигабайт а 1000 килобайтов меньше и 10000битов:1024=9байтов так что они меньше
Бир<span> = числительное "один", а также признак неопределенности
</span>бириси<span> = один (из нескольких)
</span>
