Нужно умножить стороны треугольника
<span>program gt;
var x1,x2,dx,y:real;
begin
readln(x1,x2,dx);
while x1<=x2 do
begin
y:=(x1-5)/(cos(x1*3.14/180));
writeln(x1,' ',y:1:4);
x1:=x1+dx;
end;
end.
<span>Это вторая задача.А теперь про первую. Она такая же как это но y= пиши что там в условии сказано и всё</span></span>
ПК построенный по принципу "открытой архитектуры" - это, практически, любой современный настольный компьютер - компьютер в котором можно свободно удалять, менять и устанавливать аппаратные части не прибегая к помощи специалистов сервисных центров и т. д.
Закрытая архитектура - соответственно прямо противоположна - из современной техники ближе всего к "закрытом" типу ноутбуки, КПК (но нельзя забывать что и для них есть специальные платы расширения т. е. открытый элемент)<span>Основной признак, по которому разделяются компьютеры, — платформа. Сегодня на рынке представлено несколько основных платформ персональных компьютеров, каждая из которых отличается как по назначению, так и по типу использованных комплектующих и программ. Как правило, различные платформы компьютеров несовместимы между собой.</span>
<em>// PascalABC.NET 3.3, сборка 1555 от 21.10.2017</em>
<em>// Внимание! Если программа не работает, обновите версию!</em>
begin
ReadlnString.Reverse.Println
end.
<u>Пример</u>
рука
акур
var
a,b,c:integer;
begin
readln(a); readln(b); readln(c);
if a mod 2 <> 0 then
Writeln('Первое нечетное')
else if a mod 2 = 0 then
Writeln('Первое четное');
if b mod 2 <> 0 then
Writeln('Второе нечетное')
else if b mod 2 = 0 then
Writeln('Второе четное');
if c mod 2 <> 0 then
Writeln('Третие нечетное')
else if c mod 2 = 0 then
Writeln('Третие четное');
end.