Знайти середнє арифметичне всіх натуральних двохзначних чисел, кратних 13.

Procedure TForm1.Button1Click(Sender: TObject);
var i,kol,sum:integer; aver:real;
begin
  sum:=0;
  kol:=0;
  for i:=10 to 99 do
     if i mod 13=0
       then
        begin
          sum:=sum+i;
          kol:=kol+1;
        end;
  aver:=sum/kol;
  Label4.Caption:=IntToStr(kol);
  Label5.Caption:=IntToStr(sum);
  Label6.Caption:=FloatToStr(aver);
end;                            

Оформление:

Код с комментариями:

data = [] # создать строку

print("Введите температуру:")

data.append(int(input("Понедельник>> "))) # дополнить строку

data.append(int(input("Вторник>> "))) # то же самое

data.append(int(input("Среда>> "))) # то же самое

data.append(int(input("Четверг>> "))) # то же самое

data.append(int(input("Пятница>> "))) # то же самое

data.append(int(input("Суббота>> "))) # то же самое

data.append(int(input("Воскресенье>> "))) # то же самое

print("\n\nСредняя температура за неделю:" + str(round(sum(data) / 7, 2))) # напечатать среднее строки

а) електронні послуги.

Можливості здійснення електронного урядування - пошук необхідних електронних послуг,можливість пошуку за категоріями.

б) відкритість даних.

Можливості здійснення електронного урядування - Пошукові набори даних ; просмотр,так званого "Хіду виконання" державних розпоряджень.

в) залучення громадян до управління.

Можливості здійснення електронного урядування - пошук необхідної інформації за такими групами:

"Актуально ";

"Консультації з громадськістю ";

"Анонси ";

"Сприяння розвитку громадянського суспільства ";

"Громадські ради ";

"Нормативно-правова база ";

"Партнерство «Відкритий Уряд»" ;

"Рада голів громадських рад при органах виконавчої влади ";

"Громадська експертиза органів виконавчої влади ";

"Публічні звіти органів виконавчої влади ";

"Рекомендації та іноземний досвід".

г) електронний документообіг.

Можливості здійснення електронного урядування - Пошук необхідних нормативно-правових актів.