Напишите программу в поскаль , для нахождения максимального числа из 5 чисел

285

293

Посмотреть ответы 5

Ответы на вопрос:

kotiki2017

Информатика

4,8(6 оценок)

Program a1; var a,b,c,d,e,max: real; begin clrscr; writeln('введите 5 чисел'); readln(a,b,c,d,e); if a> b then max: =a else max: =b; if c> max then max: =c; if d> c then max: =d; if e> d then e: =max; writeln('максимальное значение является: ',max); readln end.

Оно8885858855

Информатика

4,8(86 оценок)

углом между двумя скрещивающимися прямыми называется угол между двумя пересекающимися прямыми, соответственно параллельными данным скрещивающимся прямым.

перенесём ребро сс1 точкой с1 в точку а1.

получим угол аа1в - угол между стороной и диагональю квадрата (по боковые грани - квадраты).

ответ: угол равен 45 градусов.

азербайджанка12

Информатика

4,6(4 оценок)

99999 ось все ришення так

Andreораидзпч

Информатика

4,7(82 оценок)

ответ: угол равен 45.

объяснение:

вот определение угла между скрещивающимися прямыми:

также заметим, что:

так как ав = аа₁, то задняя сторона призмы - квадрат.

то есть мы можем перенести ребро сс₁ так, чтобы оно совпало либо с аа₁, либо с вв₁.

тогда нам нужно будет найти угол между ребром квадрата и диагональю квадрата. этот угол равен 45°.

matematic14

Информатика

4,5(43 оценок)

Procedure s(n,ans: integer); begin if n< > 0 then begin ans: =ans+n+n-1; s(n-1,ans); end else writeln(ans); end; вот пример всем программыprogram znanijatop; const null = 0; procedure s(n,ans: integer); begin if n< > 0 then begin ans: =ans+n+n-1; s(n-1,ans); end else writeln(ans); end; var n: integer; begin writeln('vvedite n'); readln(n); s(n,null); end.