Program n1;
var a,b: real;
begin
readln(a,b);
writeln('S=',a*b);
write('P=',(a+b)*2);
end.
11010+1110=12120 111011+11011=122022 10111=11101+11011=32223
Информационные носители это:цифровой,графический. Пока два ответа.
Первая задача
program firstProgram
var<span> ug1, ug2: real;
</span>begin<span>
write("Введите первый угол: ");</span><span>
read(ug1);</span><span>
write("Введите второй угол: ");</span><span>
read(ug2);</span>
<span> if ((ug1 + ug2) < 180)</span><span>
begin</span><span>
if ((ug1 > 90) or (ug2 > 90)) write("Треугольник тупоугольный");</span><span>
else if ((ug1 = 90) or (ug2 = 90)) write("Треугольник прямоугольный");</span><span>
else write("Треугольник остроугольный");</span><span>
end
</span><span>end</span>
Структура всегда одинаковая:
протокол://<span>сервер/файл
</span>1.БВЕДАЖГ
2.ЖДАВБЕГ
3.ВБГЕДЖА
4.БВЖЕГДА