Контрольная работа no 4 решение с использованием алгоритмов вариант 16 afn решить и оформить в ms word с использованием алгоритмов. в оформленной работе вывести текст и решение в виде блок-схемы разработанного алгоритма. 1. дано двузначное число. найти сумму и произведение его цифр. 2. дана сумма начисленной заработной платы. из этой суммы необходимо удержать 12% на подоходный налог, 1% на профсоюзный налог, 1% на пенсионный налог и добавить 45 %. полученную сумму к выдаче вывести на экран. 3. для данного вещественного х найти значение следующей функфии f, принимающей вещественные значения: (2 sinx, если х> 0; f(x) = { 16 - х, если х< 0. 4. вывести сумму квадратов натуральных чисел от 3 до 22. ещё нужно чтобы было решено через блок схему

Uses Crt;

const
  n=15;
 
var
  i,m1,m2,t:integer;
  k:array[1..n] of integer;

begin
  ClrScr;
  Writeln('Укажите количество людей на каждом этаже');
  for i:=1 to n do Read(k[i]);
  Writeln;
  { массив получен, решаем задачу }
  m1:=1; m2:=2;
  if k[m2]<k[m1] then begin t:=m1; m1:=m2; m2:=t end;
  for i:=3 to n do
    if k[i]<k[m2] then begin m2:=i; t:=m1; m1:=m2; m2:=t end;
  Writeln('Меньше всего людей на этажах ',m1,' и ',m2);
  ReadKey
end.

**************************************************************************************

uses Crt;

const
  n=10;
  a:array[1..n] of integer=(6,6,6,6,3,5,2,1,0,7);
 
var
  i,j,t:integer;

begin
  ClrScr;
  t:=a[1];
  i:=2;
  while (i<=n) and (a[i]=t) do i:=i+1;
  if i<=n then begin
    Writeln('Одинаковых элементов: ', i-1);
    Write('За ними следуют элементы ');
    for j:=i to n do Write(a[j],' ');
    Writeln
    end
  else Writeln('Весь массив заполнен одинаковыми элементами');
  ReadKey
end.

import math as m
S = int(input("Площа круга = "))
K = int(input("Площа квадрата = "))
r = m.sqrt(S/m.pi)
d = 2*r
print('Радіус кола = ',round(r,2),'см, діаметр = ',round(d,2),'см')
k = m.sqrt(K)
print("Сторона квадарата = ",round(k,2),"см")
if k < d:
print("Квадрат з площою ",K,'см^2,вписується в коло з площою ,',S,'см^2')
else:
print("Квадрат з площою ",K,'см^2, HE вписується в коло з площою ,',S,'см^2')
print("")
if d <= k:
print("Коло з площою ",S,'см^2, вписується в квадрат з площою ,',K,'см^2')
else:
print("Коло з площою ",S,'см^2, HE вписується в квадрат з площою ,',K,'см^2')