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

Даны три целых числа. Вычислить их сумму и произведение и вывести их на печать, если сумма первых двух больше суммы вторых двух чисел,иначе найти их среднее арифметическое и вывести их на печать​

Показать ответ
Ответ:
Veronicagitarowe
Veronicagitarowe
24.09.2020 07:57

на 2 pin подключаем кнопку

на 3, 4, 5 pin подключаем светодиоды


а вот скетч


#include <Arduino.h>

#include <Wire.h>

#include <SoftwareSerial.h>

double angle_rad = PI/180.0;

double angle_deg = 180.0/PI;

double x;

void setup(){

   pinMode(2,INPUT);

   pinMode(3,OUTPUT);

   pinMode(4,OUTPUT);

   pinMode(5,OUTPUT);

}

void loop(){

   if(!((x) > (3))){

       if(((digitalRead(2))==(true))){

           x += 1;

           while(!(((digitalRead(2))==(false

           {

               _loop();

           }

       }

   }else{

       x = 0;

   }

   if((x) > (0)){

       digitalWrite(3,1);

   }else{

       digitalWrite(3,0);

   }

   if((x) > (1)){

       digitalWrite(4,1);

   }else{

       digitalWrite(4,0);

   }

   if((x) > (1)){

       digitalWrite(5,1);

   }else{

       digitalWrite(5,0);

   }

   _loop();

}

void _delay(float seconds){

   long endTime = millis() + seconds * 1000;

   while(millis() < endTime)_loop();

}

void _loop(){

}

0,0(0 оценок)
Ответ:
Maks2222222222
Maks2222222222
17.09.2021 04:46
PascalABC.NET 3.4.2, сборка 1859 от 08.11.2018Внимание! Если программа не работает, обновите версию!

type

 Date = class

 private

   Дата: System.DateTime;

 public

   день, месяц, год: integer;

   constructor(d, m, y: integer);

   begin

     try

       Дата := new System.DateTime(y, m, d);

       (день, месяц, год) := (d, m, y);

     except

       Println('Недопустимая дата');

       (день, месяц, год) := (1, 1, 0);

     end

   end;

   

   procedure ДобавитьДни(dd: integer);

   begin

     Дата := Дата.AddDays(dd);

     (день, месяц, год) := (Дата.Day, Дата.Month, Дата.Year)

   end;

   

   function ГодВисокосный: boolean;

   begin

     if год mod 400 = 0 then Result := True

     else

     if год mod 100 = 0 then Result := False

     else Result := год mod 4 = 0

   end;

 

 end;


begin

 var (d, m, y) := ReadInteger3('Введите день, месяц и год:');

 var dd := new Date(d, m, y);

 if dd.ГодВисокосный then Println('Год високосный')

 else Println('Год не високосный');

 dd.ДобавитьДни(5);

 Print('Новая дата', $'{dd.Дата:dd.MM.}')

end.

ПримерВведите день, месяц и год: 9 11 2018Год не високосный Новая дата 14.11.2018
0,0(0 оценок)
Популярные вопросы: Информатика
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота