+anfisssskaa

Створюючи особливий світ Диканьки ,до яких висновків приводить нас письменник?

Ответы 2

Ответ
0,0/5
Ответ разместил: lunnasvetlaa
+
Мгновенный доступ
50 баллов
ИЛИ
+
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
В V в. до н. э. в Афинах власть принадлежала демосу. Популярным вождем афинского демоса длительное время был Перикл. Для решения государственных дел представители демоса (только граждане-мужчины, начиная с 20 лет) собирались 3-4 раза в месяц для участия в работе Народного собрания. Путем поднятия рук Собрание выбирало первого стратега (он ведал отношениями Афин с другими государствами, флотом и войском), объявляло войну, утверждало мирные договоры, принимало законы, распоряжалось казной и решало, какую зарплату платить выборным лицам. Такая форма правления называлась демократией
Ответ
0,0/5
Ответ разместил: lizalapina8772
+
Мгновенный доступ
50 баллов
ИЛИ
+
Доступ после просмотра рекламы
Ответы будут доступны после просмотра рекламы
uses crt;
type rabot=record  //объявляем тип-запись с полями по условию
           fam:string[20]; //фамилия-строка до 20 символов
           dlz:string[20]; //должность, тот же тип
           zpl:longint;//зарплата - длинное целое
           stz:byte; //стаж - числа от 0 до 255
           end;
var sp:array[1..50] of rabot; //массив записей
    n,i,k:integer;
    sr:real;
begin
clrscr;
write('Введите количество работников:');
readln(n);
writeln('Введите данные о работниках:');
sr:=0;
for i:=1 to n do
 begin
  writeln('Работник ',i);
  with sp[i] do
   begin
    write('Фамилия: ');readln(fam);
    write('Должность: ');readln(dlz);
    write('Зарплата: ');readln(zpl);
    sr:=sr+zpl;
    write('Стаж: ');readln(stz)
   end;
 end;
sr:=sr/n; //средняя зарплата
clrscr; //очистим экран от ввода
writeln('Данные о работниках:');//выведем список в виде таблицы
writeln('');
writeln('|    Фамилия    |     Должность    | Зарплата | Стаж |');
writeln('');
for i:=1 to n do
with sp[i] do
 begin
  gotoXY(1,whereY);write('| ',fam);//установим курсор в нужную позицию и выведем
  gotoXY(17,whereY);write('| ',dlz);
  gotoXY(36,whereY);write('|',zpl:8);
  gotoXY(47,whereY);write('|',stz:4);
  gotoXY(54,whereY);writeln('|');//конец строки, переход на новую
 end;
writeln('');
writeln('Press Enter');
readln;
clrscr;//очистим экран
writeln('Средняя зарплата по предприятию=',sr:0:1);//новая таблица
writeln('Данные о работниках, чья зарплата ниже средней:');
writeln('');
writeln('|    Фамилия    |     Должность    | Зарплата | Стаж |');
writeln('');
for i:=1 to n do
if sp[i].zpl<sr then //если зарплата меньше средней, выводим
with sp[i] do
 begin
  gotoXY(1,whereY);write('| ',fam);
  gotoXY(17,whereY);write('| ',dlz);
  gotoXY(36,whereY);write('|',zpl:8);
  gotoXY(47,whereY);write('|',stz:4);
  gotoXY(54,whereY);writeln('|');
 end;
writeln('');
writeln('Press Enter');
readln;
clrscr;  //очистим
writeln('Данные о работниках, чей стаж ,более 10 лет:');//новая таблица
k:=0;
writeln('');
writeln('|    Фамилия    |     Должность    | Зарплата | Стаж |');
writeln('');
for i:=1 to n do
if sp[i].stz>10 then //если стаж бодьше 10 лет
 begin
  k:=1; //фиксируем что есть
  with sp[i] do //выводим
   begin
    gotoXY(1,whereY);write('| ',fam);
    gotoXY(17,whereY);write('| ',dlz);
    gotoXY(36,whereY);write('|',zpl:8);
    gotoXY(47,whereY);write('|',stz:4);
    gotoXY(54,whereY);writeln('|');
   end;
  end;
writeln('');
if k=0 then write('Таких работников нет');
writeln('Press Enter');
readln
end.

Другие вопросы по Другим предметам

Категория
Другие предметы, kristinazaytseva200
Выполнить расчёт избыточности сообщений: (первое)...
Ответов: 3
Категория
Другие предметы, dimanebotov103
4рислів'я на теми: 1.змагання або конкуренція 2.компроміс 3.уникнення 4пристосування...
Ответов: 3
Категория
Другие предметы, yulyareikalo
Тут несколько картинок и каждая картинка означает какая-то буквально нужно узнать слова которые получится ​...
Ответов: 2
Категория
Другие предметы, pashke03
Каковы были масштабы ущерба , нанесённого войной хозяйству региона...
Ответов: 2
Категория
Другие предметы, ufimcevan96
выполнить по черчению. 70 ....
Ответов: 1
Категория
Другие предметы, konevstas
Күй аңызы материялдық құндылық және руxани құндылық ?...
Ответов: 2