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

Сделать программу в C#: 1) Дано четырехзначное число. Необходимо проверить, различны ли все четыре цифры этого числа.
2) Даны три целых числа. Найти среднее из них (больше одного, но меньше другого).
3)Дано четырехзначное целое число. Сколько в нем цифр, равных 1?
4) Дан номер месяца — целое число в диапазоне 1–12 (1 — январь, 2 — февраль и т. д.). Определить количество дней в этом месяце для невисокосного года.
5)В восточном календаре принят 60-летний цикл, состоящий из 12-летних подциклов, обозначаемых названиями цвета: зеленый, красный, желтый, белый и черный. В каждом подцикле годы носят названия животных: крысы, коровы, тигра, зайца, дракона, змеи, лошади, овцы, обезьяны, курицы, собаки и свиньи. По номеру года определить его название, если 1984 год — начало цикла: «год зеленой крысы».

Показать ответ
Ответ:
belover
belover
08.08.2020 19:25

Глушков Виктор Михайлович

- теория проектирования электронных вычислительных машин;

- создание средств вычислительной техники: новые архитектуры вычислительных машин и систем, управляющие вычислительные машины широкого назначения;

Масуда Енаши

- автор концепции информационного общества

- внедрение новых информационных технологий

Ясперс Карл

- философ

- психолог и психиатр

- представитель экзистенциализма, внесший большой вклад в разработку его не только философских основ, но и эстетических, культурологических представлений

Тоффлер Элвин

- Американский философ, социолог и футуролог, один из авторов концепции постиндустриального общества

0,0(0 оценок)
Ответ:
66vdv1
66vdv1
16.04.2021 06:15
Vara,b,c,d,x1,x2: real;
begin
writeln('Дано уравнение вида ax^2+bx+c=0');
Writeln ('Укажи переменную "a"');
readln(a);
Writeln ('Укажи переменную "b"');
readln(b);
Writeln ('Укажи переменную "c"');
readln(c);
if a = 0
 then writeln('Не квадратное уравнение!')
 else begin
      d:= sqr(b)-4*a*c;
      if d < 0 then writeln('Нет корней')
               else begin
                    x1:= (-b+sqrt(d))/2*a;
                    x2:= (-b-sqrt(d))/2*a;
                    writeln ('X1 =',x1,'  X2 =',x2);
                    end;
      end;
end.
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота