М
Молодежь
К
Компьютеры-и-электроника
Д
Дом-и-сад
С
Стиль-и-уход-за-собой
П
Праздники-и-традиции
Т
Транспорт
П
Путешествия
С
Семейная-жизнь
Ф
Философия-и-религия
Б
Без категории
М
Мир-работы
Х
Хобби-и-рукоделие
И
Искусство-и-развлечения
В
Взаимоотношения
З
Здоровье
К
Кулинария-и-гостеприимство
Ф
Финансы-и-бизнес
П
Питомцы-и-животные
О
Образование
О
Образование-и-коммуникации
NEO178
NEO178
29.06.2022 00:38 •  Информатика

Type месяц = (янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек); var k: 1..366; d: 1..31; m: месяц; определить d, m – дату k-го по счету дня високосного года. язык программирования паскаль, .

👇
Ответ:
fastas32
fastas32
29.06.2022
ТОЛЬКО В PascalABC.NET

const
  dm:array[0..11] of integer=(31,29,31,30,31,30,31,31,30,31,30,31);
type
  месяц =(янв,фев,мар,апр,май,июн,июл,авг,сен,окт,ноя,дек);
var
  k:1..366;
  d:1..31;
  m:месяц;
  s:integer;
begin
  Write('Введите номер дня: '); Read(k);
  s:=k; m:=янв;
  repeat
    s:=s-dm[Ord(m)];
    if s>0 then m:=Succ(m)
  until s<=0;
  d:=s+dm[Ord(m)];
  Writeln(d,' ',m)
end.

Пример
Введите номер дня: 308
3 ноя
4,7(17 оценок)
Открыть все ответы
Ответ:
Богдан2281667
Богдан2281667
29.06.2022

Объяснение:

Логотип – це графічний символ бренду. Здебільшого, це малюнок, наповнений різними кольорами й символами, з до якого спеціалісти створюють образ, що характеризує діяльність компанії, її товари та послуги. Логотип потрібен також для того, щоб люди могли впізнати поставщика товарів та послуг. Компаніям логотип потрібен для того, щоб виділятися серед конкурентів і мати якусь свою особливість. Зазвичай, логотип організації розміщується на головній сторінці її офіційного сайту. Логотипи можуть бути символічними, текстовими, комбінованими, буквенно-цифровими та у вигляді емблем. Крім того, логотипи відрізняються за формою. Вони можуть бути круглими, трикутними, квадратними, кривими і т.д. Стилістика зображення – це вже задача дизайнера. Логотип повинен бути довговічним, унікальним, універсальним та добре запам’ятовуватися.

4,4(15 оценок)
Ответ:
Сat856142555
Сat856142555
29.06.2022
Var
  x,f:real;
begin
  Write('Введите x: '); Readln(x);
  if (x>-2.4) and (x<5.7) then f:=sqr(x)
  else f:=4;
  Writeln('F=',f)
end.

var
  x,f:real;
begin
  Write('Введите x: '); Readln(x);
  if (x>0.2) and (x<0.9) then f:=sin(x)
  else f:=1;
  Writeln('F=',f)
end.

var
  a,b,c:real;
begin
  Write('Введите три числа: '); Readln(a,b,c);
  Write('Условие ',a,'<',b,'<',c);
  if (b>a) and (b<c) then Writeln(' выполняется.')
  else Writeln(' не выполняется.');
  Write('Условие ',b,'>',a,'>',c);
  if (a<b) and (a>c) then Writeln(' выполняется.')
  else Writeln(' не выполняется.')
end.
4,5(9 оценок)
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ