Program sasaylalka; var a,b:integer; P,d:real; begin writeln('Введи стороны'); readln(a,b); P:=2*(a+b); writeln('Периметр равен ',P); d:=sqrt(sqr(a)+sqr(b)); writeln('Диагональ равна ',d); readln; end.
Символ-это набор команд состоящих из единиц и нулей,любое слово вводимое тобой или выведонное тебе состоит из этих последовательностей. Например символ I (Я) зашифрован так 0100 1001 <-- 8 этих битов образуют 1 символ,называемым байтом,поэтому любой текст,изображение,видео(там немного другая схема действует),все это всего лишь грандиозный набор команд,разговоры по телефону тоже кодируются из вибрации в набор импульсов и на обратном выходе опять преобразуются в нам всем привычные слова.Любые механизмы,и даже мы с Вами можем передавать информацию,в том числе Азбукой Морзе,даже несколько последовательно сформулированных щелчков пальцев несут в себе информацию,главное ее понять,расшифровать и преобразовать,в видео,аудио,текст,фотографию.
// PascalABC.NET 3.1, сборка 1230 от 27.04.2016 begin var n:=ReadInteger('n='); var a:=MatrixRandom(n,n,10,99); var s:=0; var k:=0; for var i:=0 to n-1 do begin for var j:=0 to n-1 do Print(a[i,j]); Writeln; if a[i,i].IsEven then begin s+=a[i,i]; Inc(k) end; end; if k>0 then Writeln('S=',s/k:0:2) else Writeln('На главной диагонали нет четных элементов') end.
var a,b:integer;
P,d:real;
begin
writeln('Введи стороны');
readln(a,b);
P:=2*(a+b);
writeln('Периметр равен ',P);
d:=sqrt(sqr(a)+sqr(b));
writeln('Диагональ равна ',d);
readln;
end.