В
Все
М
Математика
А
Английский язык
Х
Химия
Э
Экономика
П
Право
И
Информатика
У
Українська мова
Қ
Қазақ тiлi
О
ОБЖ
Н
Немецкий язык
Б
Беларуская мова
У
Українська література
М
Музыка
П
Психология
А
Алгебра
Л
Литература
Б
Биология
М
МХК
О
Окружающий мир
О
Обществознание
И
История
Г
Геометрия
Ф
Французский язык
Ф
Физика
Д
Другие предметы
Р
Русский язык
Г
География
анаркааа54
анаркааа54
20.03.2022 00:20 •  Информатика

Дано числа h і m, де h - кількість годин, m - кількість хвилин у якійсь точці часу. Знайдіть кут між годинниковою та хвилинною стрілками в цей момент часу. Язык C#

Показать ответ
Ответ:
Аккаунт удален
Аккаунт удален
15.01.2023 12:55

program raf105;

const

 n = 4;

var

 a,b: array[1..n,1..n] of integer;

 Vkol1,Vkol2,Vsum1,Vsum2: array[1..n] of integer;

 i,j,sum1,sum2,kol1,kol2: integer;

 x1,x2: boolean;

begin

 for i:=1 to n do

 begin

   x1:= False;

   x2:= False;

   kol1:= 0;

   kol2:= 0;

   sum1:= 0;

   sum2:= 0;

   for j:=1 to n do

   begin

     a[i,j]:= random(-9,9);

     b[i,j]:= random(-9,9);  

     if a[i,j] < 0

       then x1:= True;

     if b[i,j] < 0

       then x2:= True;

     if not(x1)

       then begin

         sum1:= sum1 + a[i,j];

         kol1:= kol1 + 1;

       end;

     if not(x2)

       then begin

         sum2:= sum2 + b[i,j];

         kol2:= kol2 + 1;

       end;

   end;

   Vkol1[i]:= kol1;

   Vkol2[i]:= kol2;

   Vsum1[i]:= sum1;

   Vsum2[i]:= sum2;

 end;

 writeln('Массив A');

 for i:=1 to n do

 begin

   writeln;

   for j:=1 to n do

     write(a[i,j]:3);

 end;

 writeln;

 writeln;

 writeln('Массив B');

 for i:=1 to n do

   begin

   writeln;

   for j:=1 to n do

     write(b[i,j]:3);

 end;

 writeln;

 writeln;

 write('Вектор "Количество по строкам A": ');

 for i:=1 to n do

   write(Vkol1[i],' ');

 writeln;

   write('Вектор "Количество по строкам B": ');

 for i:=1 to n do

   write(Vkol2[i],' ');

 writeln;

 write('Вектор "Сумма по строкам A": ');

 for i:=1 to n do

   write(Vsum1[i],' ');

 writeln;

 write('Вектор "Сумма по строкам B": ');

 for i:=1 to n do

   write(Vsum2[i],' ');

end.

PascalABC 3.4.2
0,0(0 оценок)
Ответ:
яна757
яна757
01.08.2021 00:19
Запустите программу, выберите меню Файл | Создать….
Справа появилась боковая панель создания документа. 
В разделе «Создание документа с шаблона» щёлкните по пункту «Общие шаблоны…». 
В появившемся диалоге «Шаблоны» откройте вкладку «Другие документы» и выберите пункт «Мастер календарей». Нажмите OK для продолжения. Если компонент календаря ещё не установлен, то программа сама его установит. 
На первой странице Мастера календарей щёлкните «Дальше». 
Выберите стиль оформления календаря: «Строгий», «Стандартный» или «Изысканный». По внешнему виду можно догадаться, как календарь будет выглядеть. 
Выберите ориентацию календаря и наличие рисунка. С рисунком готовый документ будет выглядеть немного нарядней, особенно, если распечатаете его на цветном принтере. 
Выберите начальный и конечный месяц и год. По умолчанию выбран текущий месяц и год 2013. Рекомендую сразу распечатать календарь на год – выберите следующий 2014 год. 
Создание календаря завершено! Нажмите кнопку «Готово», чтобы увидеть получившийся документ. 
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота