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

Программа Паскаль ближайшая к дому булочная работает с 7:00 до 19:00 и закрывается на перерыв с 13:00 до 15:00. Хлебный магазин, расположенный дальше, работает с 8:00 до 20:00 и имеет перерыв с 14:00 до 16:00. С 8:00 до 24:00 хлеб можно купить в супермаркете, расположенном дальше, чем хлебный магазин, и работающем без обеда. По времени на часах у пользователя определить, что лучше:

а) сходить в булочную, так как она открыта;

б) дойти до хлебного магазина;

в) съездить в супермаркет;

г) сидеть дома, так как везде закрыто.

Время вводится следующим образом: часы – целая часть числа, минуты – дробная часть числа. Например, 14,25 – 14 часов 25 минут

👇
Ответ:
kivlad96
kivlad96
22.07.2022

program hungry;

var

 time: real;

begin

 write('Который час? ');

 readln(time);

 if (time < 0) or (time >= 24) or (frac(time) >= 0.6) then

   writeln('У кого-то часы барахлят...')

 else if (time >= 7) and (time < 13) or (time >= 15) and (time < 19) then

   writeln('Отлично, булочная работает!')

 else if (time >= 8) and (time < 14) or (time >= 16) and (time < 20) then

   writeln('Можно до хлебного магазина дойти.')

 else if (time >= 8) and (time < 24) then

   writeln('Голод не тетка, придется в супермаркет ехать...')

 else

   writeln('Извини, друг, но сегодня хлеба не будет, сиди дома!');

end.

4,8(3 оценок)
Ответ:
27sergey1
27sergey1
22.07.2022

var

a: real;

s: string;

begin

write('Введите время: ');

readln(a);

if ((7

else if ((8

else if (8

else s:='сидеть дома, так как везде закрыто';

write(s);

end.

4,7(63 оценок)
Открыть все ответы
Ответ:
Stuart11
Stuart11
22.07.2022

Код:

#include <iostream>

int* rearrange(int *A, int Asize) {

   int * result = new int[Asize];

   int p = 0;

   for (int i = 0; i < Asize; i += 2) {

       result[p] = A[i];

       ++p;

   }

   for (int i = 1; i < Asize; i += 2) {

       result[p] = A[i];

       ++p;

   }

   return result;

}

void print_arr(const int *A, int Asise) {

   for (int i = 0; i < Asise; ++i) {

       std::cout << A[i] << " ";

   }

}

int* change_it_k_times(int * const A, int Asize, int K) {

   int * result = A;

   for (auto i = 0; i < K; ++i) {

       result = rearrange(result, Asize);

       print_arr(result, Asize);

   }

   return result;

}

template <typename T>

void get_sequence(T* A, int N) {

   for (auto i = 0; i < N; ++i) {

       std::cin >> A[i];

   }

}

int main () {

   int N, K;

   std::cin >> N;

   auto A = new int[N];

   get_sequence(A, N);

   std::cin >> K;

   auto R = change_it_k_times(A, N, K);

   delete[] A;

   delete[] R;

   return 0;

}


написать код на c++ Мальчик Егор на досуге пишет свой текстовый редактор Блокнот++. В базовые возмож
написать код на c++ Мальчик Егор на досуге пишет свой текстовый редактор Блокнот++. В базовые возмож
написать код на c++ Мальчик Егор на досуге пишет свой текстовый редактор Блокнот++. В базовые возмож
4,7(3 оценок)
Ответ:
NoNameRu1
NoNameRu1
22.07.2022
Из условия неясно, как определяются размеры участков огорода - линейными размерами или площадью. Т.е. что должно быть целым - линейные размеры или площадь? Будем считать, что целыми должны быть линейные размеры.
Это означает, что достаточно среди чисел А и В найти четное и разделить его пополам. В этом случае участок деда будет равен половине огорода. Если оба числа нечетных, деду достанется меньше половины огорода.

var
  A,B:integer;
  f:Text;
begin
  Assign(f,'input.txt');
  Reset(f);
  readln(f,A,B);
  writeln('Размеры участка ',A,', ',B);
  if (A mod 2=0) or (B mod 2=0) then writeln('0')
  else writeln('1')
end.

Результат решения:
Размеры участка 8, 4
0
 
4,7(17 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ