Сначала появилась почта - в разных странах она возникала в разное время, но возникла вскоре после изобретения письменности. Затем был изобретен телеграф, сначала - оптический телеграф Шаппа, затем электрический телеграф Морзе, передающий сигналы специальной кодовой азбукой. Затем Александр Белл изобрел телефон. Потом, уже в XX веке, появилось радиовещание, потом телевидение и наконец компьютерные сети.
Var n,i:integer;
begin
read(n);
i:=1;
repeat
begin
if i mod 3=0 then
writeln(i);
end;
i:=i+1;
until n<i
end.
Vara,b,c:real;begin readln(a,b); if a>=b then begin b:=b*b*b; a:=sqrt(a); end else begin a:=a*a*a; b:=sqrt(b); end; writeln(a:0:0,' ',b:0:0); readlnend.
1.Пиксель<span> – это элемент изображения. В любую фотографию, будь-то цифровой файл или отпечаток, входит некоторое количество пикселей, которые формируют объекты, изображенные на снимке
</span>Растр<span> (оптика) — решётка для структурного преобразования направленного пучка лучей света. В прозрачных растрах чередуются прозрачные и непрозрачные элементы, отражательные </span>растры<span> состоят из зеркально отражающих и поглощающих (или рассеивающих) элементов.
2.</span>От видеокарты приходят сигналы цвета R, G, B и импульсы синхронизации. Всё это обрабатывается и подаётся на кинескоп. <span>От видеокарты приходят сигналы цвета R, G, B и импульсы синхронизации. Всё это обрабатывается и подаётся на кинескоп. </span>
Это определение стандартной неэлементарной кусочно-постоянной математической функции sgn(x) - сигнум От латинского signum - знак).
В языке Паскаль эта функция уже определена.
// PascalABC.NET 3.1, сборка 1239 от 08.05.2016
// Также проверено в WDE: http://pascalabc.net/WDE
begin
Writeln('y=',Sign(ReadReal('x=')))
end.
<u><em>Тестовое решение</em></u>
x= 4.564
y=1