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

Программу через паскаль планы по благоустройству города иногда имеют свойство воплощаться в жизнь. вот, к примеру, раньше кеше, чтобы добраться до бассейна, приходилось переходить одну широкую дорогу. а теперь наземного перехода больше нет, зато есть подземный переход. правда, расстояние, которое приходится преодолевать по подземному переходу, в несколько раз больше, чем было по наземному. но есть и плюсы — бывает, начинает накрапывать дождь, а пока спустишься в переход, пройдёшь его, поднимешься — а дождь уже успел превратиться в ливень, пролиться, и выглянувшее солнце сушит лужи. маршрут кеши от дома до бассейна выглядит следующим образом. сначала кеша идёт по улице в течение d минут, потом идёт по подземному переходу в течение w минут, после чего вновь идёт по улице в течение p минут. известно, что, пока кеша шёл в бассейн дождь длительностью u минут. дождь начался не ранее момента, в который кеша вышел из дома, и закончился не позднее того момента, когда кеша дошёл до бассейна. ваша — определить, какое максимальное и какое минимальное время кеша мог идти под дождём. входные данные в первой строке содержатся целые числа d, w, p, u (1 ≤ d, w, p ≤ 1000, u ≤ d + w + p), описанные в условии . выходные данные выведите два целых числа — максимальное и минимальное время, которое кеша мог идти под дождём. пример входные данные 14 10 8 15 выходные данные 14 5

👇
Ответ:
prokop228
prokop228
19.09.2021
Var  d, w, p, u: integer;
begin  read(d);  read(w);  read(p);  read(u);  if u <= d + w then  begin    write(d, ' ');    write(u - w);  end  else if u > d + w + p then  begin    write(p + d,' ');    write(p + d);  end  else   begin    write(u - w,' ');    write(p);  end;end.
4,8(15 оценок)
Открыть все ответы
Ответ:
Anastasiya12377
Anastasiya12377
19.09.2021

Задача 1

var

 y, x: integer;// Объявляем переменные типа Integer

begin// Начало блока

 writeln('Введите X: '); //Выводим текст на экран

 read(x); //Читаем значение введеное с кливиатуры и записываем его в переменную

 y := 7 * x * 2 - 3 * x + 6; //Выолняем выражение

 writeln('Результат: ', y);// Выводим результат

end. // конец блока

Задача 2:

var

 a, b, c: integer;//Объявление переменных

begin

 write('Введите длину ребра куба '); //Вывод текста на экран

 read(a); //Читаем значение введеное с клавиатуры

 b := a * a * a; //Вычисляем объем куба

 c := 6 * sqr(a); //Sqr - квадрат числа

 {Далее опять же вывод результата}

 writeln('Объём куба равен ', b);

 writeln('Площадь боковой поверхности куба равна ', c);

end.

Задача 3

var

 k: integer;//Объявление переменных

begin

 write('Введите число: '); //Вывод текста на экран

 read(k); //Читаем значение введное с клавиатуры

 if Odd(k) then //Odd - возвращает True - если значение нечетно и False если четно

   writeln('Нечетное')

 else

   writeln('Четное');

end.

Задача 4:

var

 a, b: integer;

begin

 writeln('Введите a и b через пробел:');

 readln(a, b);

 if (b mod a = 0) then writeln('Число ', a, ' является делителем числа ', b)  

 else writeln('Число ', a, ' НЕ является делителем числа ', b);

end.

Задача 5:

var

 a, b: real;

begin

 writeln('Через пробел введите 2 числа: ');

 read(a, b);

 if a > b then //Условие если А больше Б

 begin

   a := a / 2; //Делим число А на 2 и выводим результат

   writeln('A:= ', a, ' B:= ', b);

 end

 else //Иначе оставляем все как и было

   writeln('A:= ', a, ' B:= ', b);

end.

4,5(38 оценок)
Ответ:
salavat5sal
salavat5sal
19.09.2021
1)
typedef size_t uint32; 
mt19937 gen{ random_device()() }; 
uniform_int_distribution<uint32> uid(20, 100); 
const uint32 N = 10;     
int main() 
{
     uint32 arr[N], pos{0}, neg{0};
     for (uint32 i = 0; i < N; ++i) {
         arr[i] = uid(gen);
         cout << arr[i] << " ";
         if (arr[i] % 2 == 0) ++pos;
         else ++neg;
     }
     cout << endl << pos << "/" << neg << endl;
     system("pause"); 
}
2)
typedef size_t uint32; 
mt19937 gen{ random_device()() }; 
uniform_int_distribution<uint32> uid(0, 100); 
const uint32 N = 10;     
int main() 
{
     uint32 arr[N], lf{ 0 }, hf{ 0 }, sum1{ 0 }, sum2{ 0 };
     for (uint32 i = 0; i < N; ++i) {
         arr[i] = uid(gen);
         cout << arr[i] << " ";
         if (arr[i] >= 50) {
             ++lf;
             sum1 += arr[i];
         } else {
             ++hf;
             sum2 += arr[i];
         }
     }
     cout << endl << sum1 / lf << "/" << sum2 / hf << endl;
     system("pause"); 
}
4,6(27 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ