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

ЯЗЫК ПАСКАЛЬ

ДЕЛЁЖ ГРУШ

N школьников делят К груш поровну, неделяющийся остаток остается в корзинке. Напишите программу, которая определяет, сколько груш останется в корзине?
Формат входных данных: Программа считывает со стандартного потока ввода (stdin) или из файла input.tхt два натуральных числа К и N. Оба числа не превосходят 10000. Формат выходных данных: Программа должна вывести на стандартный потока вывода (stdout) или в файл оutрut.tхt одно число-ответ на вопрос в условии задачи.​

👇
Ответ:
matthewfeat
matthewfeat
09.08.2020

program z1;

var k,n:integer;

begin

read(k,n);

write(k mod n)

end.

Объяснение:

Вводим числа

Выводим остаток от целочисленного деления

4,5(74 оценок)
Ответ:
слышала
слышала
09.08.2020

Объяснение:

............................


ЯЗЫК ПАСКАЛЬДЕЛЁЖ ГРУШN школьников делят К груш поровну, неделяющийся остаток остается в корзинке. Н
4,4(94 оценок)
Открыть все ответы
Ответ:
vitashe135
vitashe135
09.08.2020

4 бита, это комбинация из 4-х чисел, от 1 до 0.  

Максимальное число, которое можно закодировать 4 битами это 1111 в двоичной системе, а в 10-тичной системе это число 15 (8+4+2+1).  

Итого у его может быть максимум 15 пятерок.  

Если допустить, что он получил максимум 5-ток, а это15, то тогда 160-15=145 четверок получил.  

Но, если он получил 14 оценок, это по прежнему будет 14 бит, но комбинация будет 1110.  

13 - 1101, 12 - 1100, 11 - 1011, 10 - 1010, 9 - 1001, 8 - 1000, 7 -111.  

Исходя из некоректных условий задачи, мы можем знать только то, что пятерок у ученика от 8 до 15 (8, первое число которое кодируется 4-ю битами, и 15 которое последнее).  

Задача,увы, неправильная.

Объяснение:

4,8(63 оценок)
Ответ:
tatpolli8
tatpolli8
09.08.2020
Var
 x,a,b,c,max,min,mid:real;
begin
 readln(x);
 a:=sin(x);
 b:=cos(x);
 if a>0 then
  begin
   c:=ln(x);
   if (a>b) and (a>c) then max:=a else
   if (b>a) and (b>c) then max:=b else max:=c;
   if (a<b) and (a<c) then min:=a else
   if (b<a) and (b<c) then min:=b else min:=c;
   if (a>min) and (a<max) then mid:=a else
    if (b>min) and (b<max) then mid:=b else mid:=c;
   writeln(min,' ',mid,' ',max);
  end
 else
  if a>b then writeln(b,' ',a) else writeln(a,' ',b);
end.
4,4(59 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ