мот43
17.03.2020 19:21

задание 2 1)В редакторе6 электронных таблиц MS Excel откройте новую книгу и сохраните ее в дальнейшем под вашим именем 2)Оформите таблицу расчета квартплаты за 1 месяц. Присвойте листу имя Квартплата за месяц. Отсортируйте данные по наименованию статей расходов (по возрастанию) 3)Используя функции max и min определите статью наибольшей и наименьшей оплаты. Выделите эти суммы разными цветами. 4) По результатам расчета постройте круговую диаграмму с указанием % доли платежа по каждой статье. Сравните с результатами п 3 задание 3 написать реферат Тема реферата "Компьютерные технологии в управлении" задание 4 Представить презентацию Вашего реферата ( программа MS PowerPoint) Задание на создание презентации количество слайдов не менее 15 1-й слайд -титульный лист последний слайд -резюме по теме Используйте цветовое оформление слайдов рисунки или схемы по заданной тематике эффекты анимации Задайте наиболее оптимальный режим демонстрации слайдов

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
FedorAche
31.01.2022 21:09
А)
var    s:string;    mas:array ['a'..'z'] of longint;{индексы элементов соответствуют латинице}    c:char;    i:longint; begin      read(s);      for c:='a' to 'z' do{заполнение нулями элементов массива, для запоминания количества элементов в латинице}          mas[c]:=0;      for i:=1 to ord(s[0]) do{пробегаем по всей строке ord(s[0]) это количесвто элементов в строке (только паскаль)}          mas[s[i]]:=mas[s[i]]+1;      for c:='a' to 'z' do{пробегаем по массиву значений и выводим только неповторяющиеся}          if(mas[c]=1) then                       writeln(c); end.
0,0(0 оценок)
Ответ:
рустам222
13.12.2022 08:55
// PascalABC.NET 3.0, сборка 1164 от 11.02.2016
function gcd(a,b:integer):integer;
// Нахождение НОД
var
  i: longint;
begin
  while b <> 0 do begin
    a := a mod b;
    i := b; b := a; a := i
    end;
  Result:=a
end;

begin
  var a:=ReadInteger('a=');
  var b:=ReadInteger('b=');
  var nod:=gcd(a,b);
  if nod>1 then
    WritelnFormat('Дробь сократима: {0}/{1}={2}/{3}',
    a,b,a div nod,b div nod)
  else WritelnFormat('Дробь {0}/{1} несократима',a,b)
end.

Тестовое решение:
a= 23541
b= 335160
Дробь сократима: 23541/335160=59/840
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота