Kolosov77
04.05.2021 07:42

Сдать решение 1-закупка
полный :
100
бонусные :

ограничение времени:
1 с
ограничение реального времени:
5 с
ограничение памяти:
64m
1: закупка
в городе покйаме готовятся к командной олимпиаде по программированию, в которой каждая команда состоит из трёх участников.
в этом году оргкомитет выделил n бурлей для закупки необходимых вещей для состязающихся. каждому участнику олимпиады полагается блокнот, стоимостью a бурлей, и шариковая ручка, стоимостью b бурлей. будем считать, что команда снабжена всем необходимым, если каждый член команды получил и блокнот и ручку.
такое ответственное , как закупка «мерча» для олимпиады, поручили местным волонтёрам. рётнолову стало интересно, сколько команд будут снабжены блокнотами и ручками, но времени на раздумья у него нет, так как занят такими важными и ответственными делами, как например, расселение участников и закупка блокнотов.
волонтёру рётнолову ответить на вопрос, сколько команд будут снабжены необходимыми на олимпиаде вещами.
формат входных данных
в единственной строке входных данных находятся 3 целых числа: n, a, b (1 ≤ n, a, b ≤ 1018) — количество бурлей для закупки, стоимость блокнота и стоимость ручки соответственно.
формат выходных данных
выведите единственное число — количество команд, которые будут снабжены ручками и блокнотами.
система оценки
в первой 60 тестов, прохождение каждого теста из первой дает 1 .
за вторую начисляются только в случае, если все тесты для этой и необходимых успешно пройдены

Нажмите на рекламу ниже и сразу увидите ответ
Популярные вопросы:
Ответ:
sofia121324oyztor
01.03.2021 19:00
1)
var
    a1, a2, b1, b2, c, i, n: integer;
    s: array [1..100] of integer;

begin
    read(n);
    for i := 1 to n do
    begin
        s[i] := random(100);
        if s[i] < 50 then
        begin
            a1 := a1 + s[i];
            a2 := a2 + 1;
        end;
        if s[i] >= 50 then
        begin
            b1 := b1 + s[i];
            b2 := b2 + 1;
        end;
        
    end;
    writeln(a1 / a2:0:3, ' ', b1 / b2:0:3);
end.

2)
var
    i, n: integer;
    f: boolean;
    s: array [1..100] of integer;

begin
    read(n);
    for i := 1 to n do
        s[i] := random(5);
    
    f := false;
    for i := 1 to n - 1 do
        f := f or (s[i] = s[i + 1]);
    
    writeln(f);
end.

3)
var
    k, t,  i, n: integer;
    s: array [1..100] of integer;

begin
    read(n);
    for i := 1 to n do
        s[i] := random(99);
//    Println(s);    
        
    k := n div 2;
    for i := 1 to k div 2 do
    begin
        t := s[i];
        s[i] := s[k + 1 - i];
        s[k + 1 - i] := t;
        
        t := s[i+k];
        s[i+k] := s[n + 1 - i];
        s[n + 1 - i] := t;
    end;
    
//    Println(s);
    for i := 1 to n do
        write(s[i], ' ');
end.
0,0(0 оценок)
Ответ:
fsks
09.03.2020 04:38
Почему-то мой ответ удалили. Напишу подробнее.
Если в чмсле первая цифра 4 и вторая цифра 3, то  числа от 4300 до 4399
На паскле программа выглядит так
var i, n: integer
begin
uses crt;
for i:= 0 to 99
begin
n = 4300 + i;
write (n);
end;
writeln;
end.
Блок-схема совсем простая, нарисуй сама.
1) Начало (в овале)
2) i = 0 (в прямоугольнике)
3) n = 4300 + i (в прямоугольнике)
4) Вывод n (в параллелограмме)
5) Проверка i > 99 ? (в ромбе). Если нет, возврат на п. 3. Если да, вниз.
6) Вывод пустой строки (в параллелограмме)
7) Конец (в овале)
0,0(0 оценок)
Полный доступ
Позволит учиться лучше и быстрее. Неограниченный доступ к базе и ответам от экспертов и ai-bota Оформи подписку
logo
Начни делиться знаниями
Вход Регистрация
Что ты хочешь узнать?
Спроси ai-бота