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

Полина набирала для себя неаккулынае занятия в будние дни. Уроки в школе заканчиваются в 13 ч. Полина выписала себе грілки работы учреждений, которые хотела бы посещать. Посещать она могла олько по ави
ранных занятий в лет составить график занятий на неделю, если каждое занятие вместе с переходом
и одного места в другое составляет 1 ч., запишите график в таблицу.
Труд и риботы учреждении.
Понедельник, среда, четверг, пятница с 10 до 14.
Понедельник полног
Вторник, суббота, воскресенье вы калині
Бvр к пятина с 10 до 18.
Теннис,
Суббота, воскресенье 0 до 19 ч.
Понедельник - че не е 6 до 20 ч
Пятница воскресенье выхочной
Понедельник, среда, пятната е 15 0 19
Мly ief игрушки
Пометелик ерела е 12 ч.
Субота, воскресенье - выходной
M

Показать ответ
Ответ:
kiskaignatushkina
kiskaignatushkina
21.07.2022 22:51

   class Program

   {

       static void Main(string[] args)

       {

           int a = int.Parse(Console.ReadLine());

           int b = int.Parse(Console.ReadLine());

 

           int x = int.Parse(Console.ReadLine());

           int y = int.Parse(Console.ReadLine());

           int z = int.Parse(Console.ReadLine());

 

           if (x <= a && y <= b || y <= a && x <= b ||

               x <= a && z <= b || z <= a && x <= b ||

               z <= a && y <= b || y <= a && z <= b)

               Console.WriteLine("Пройдет");

           else

               Console.WriteLine("Не пройдет");

 

           Console.ReadKey();

       }

   }

Объяснение:

.

0,0(0 оценок)
Ответ:
Sofija20
Sofija20
13.02.2023 15:17

Задача 1:

var x:longint;

   i,c,sum:integer;

begin

   c:=0;

   sum:=0;

   write('Введите число: '); readln(x);

   while x <> 0 do begin

       i:=x mod 10;

       x:=x div 10;

       

       if i mod 2 = 0 then begin

           c:=c+1;

           sum:=sum+i;

       end;

   end;

   if c > 0 then write('Среднее арифметическое всех чётных чисел равно: ', sum/c:0:2)

   else write('Чётных цифр нет!');

end.

Задача 2:

var x,y,sum:integer;

begin

   sum:=0;

   y:=0;

   while True do begin

       write('Введите число: '); readln(x);

       if x = 0 then break

       else if abs(x-y) > sum then sum:=abs(x-y);

       y:=x;

   end;

   write(sum);

end.

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