На кумире и pascal. , , не знаю, как оформлять 1. найти s треугольника, если известны основание и высота. 2. даны 3 числа. найти большее из них. 3. найти сумму чисел от 5 до 20. нужны алгоритмы на двух языках, заранее огромное ❤
Var n, k, i, imax, j: integer; a: array[1..100]of integer;
begin randomize; n := random(30) + 10; for i := 1 to n do begin a[i] := Random(30); write(a[i], ' '); end; writeln();
{сортировочка} for i := 1 to n - 1 do begin imax := i; for j := i + 1 to n do if a[j] > a[imax] then imax := j; k := a[i]; a[i] := a[imax]; a[imax] := k; end;
for i := 1 to n do write(a[i], ' ');
k := 0; for i := 2 to n - 1 do if (a[i] <> a[i - 1]) and (a[i] <> a[i + 1]) then k := k + 1;
if a[1] <> a[2] then k := k + 1; if a[n] <> a[n - 1] then k := k + 1;
задача1 на КуМире
алг задача1
нач
вещ s, a, h
вывод "введи основание и высоту треугольника"
ввод a, h
s:=1/2*a*h
вывод "площадь треугольника равна", s
кон
задача2 на Кумире
алг задача2
нач
вещ a, b, c, max
вывод "введи три произвольных числа"
ввод a, b, c
если a>b то max:=a
иначе max:=b
все
если c>max то max:=c все
вывод "наибольшим является число ",max
кон
задача3 на КуМире
алг задача3
нач
цел sum, n
n:=5
sum:=0
нц пока n<> 20
sum:=sum+n
n:=n+1
кц
вывод "сумма чисел от 5 до 20 равна", sum
кон