Var a,b,p:integer;
begin
writeln ('Введите стороны прямоугольника:');
readln(a,b);
p:=2*(a+b);
writeln ( 'Периметр прямоугольника = ',p);
readln;
end.
Пример:
<span>Введите стороны прямоугольника:
3 5
Периметр прямоугольника = 16</span>
Информация-двигатель всего. По этому поводу пара примеров: ученый изобрел некое лекарство от всех болезней на планете. Чтобы сохранить это лекарство, он записывает формулу на носитель. Формула-инфомация. 2 пример: разговариваешь ты с другом. Друг тебе что-то говорит, пусть даже несущественное. То, что друг тебе сказал-информация. как видно, информация окружает нас всегда и везде. Без неё жизнь человека невозможна. Даже если человек просто видит, как летит птица в небе, это тоже информация о её полете и кто же там летит.
<span>C:/библиотека /повесть /летопись </span>
Var a,b,c:longint;
Begin
read(a,b,c);
writeln(a+b+c);
End.
Двоичная= 110111100.001
восьмеричная = 674.1
шеснадцатеричная = 1BC.2
2 = 1111011101.011
8= 1735.3
16 = 3DD.6
2--- 11101101.1011101011...
8--- 355.5656050753...
16----
ED.BAE147AE14...