Найти длину незанятой части отрезка A - Pascal ABC

  1. Даны целые положительные числа A и B (A > B). На отрезке длины A размещено максимально возможное количество отрезков длины B (без наложений). Используя операцию взятия остатка от деления нацело, найти длину незанятой части отрезка A. Желательно с комментариями. От меня лоис.


textual

Код:

program pr;
var a,b,c:integer;
begin
repeat
read(a,b);//вводим
until (b>0) and(a>b); // условия
c:=a mod b; // переменная под результат и собственно операция
writeln (c); //выводим
end.


Похожие ответы
  1. Дан ряд: 1+1/2+1/4+1/8+... Найти частичную сумму ряда. Ряд сводится к значению 2. Помогите, пожалуйста, разобраться, как это вообще делается??? Я тот еще чайник в этом.:)

  1. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости

  1. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости

  1. Помогите пожалуйста составить программу в паскале. Даны действительные числа x,y. Определить, принадлежит ли точки с координатами x, y заштрихованной части плоскости.

  1. Даны натуральные числа n, a1 ..., аn (п >= 4). Числа a1 ..., аn — это измеренные в сотых долях секунды результаты п спортсменов в беге на 100 м. Составить команду из четырех лучших бегунов для участия в эстафете 4 х 100 м, т. е. указать одну из четверок натуральных чисел i, j, k, m, для которой 1 <= i < j < k < m <= 4 и сумма аi + аj + ak+ am имеет наименьшее значение

  1. Определить, принадлежит ли точка с координатами X и Y заштрихованной части плоскости помогите составить программу

  1. Разбить массив на две части. В каждой найти количество четных элементов и умножить на найденное значение последний элемент соответствующей части.

  1. Pascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 //по убыванию program sortarr; const      SIZE=10;   a:array[1..SIZE] of integer=(1,2,3,4,5,6,7,8,9,10); var        i:integer;                 { номер элемента, от которого ведется поиск }                                     { минимального эл-та }      min:integer;            { номер минимального элемента в части }                                     { массива от i до верхней границы массива }      j:integer;                 { номер эл-та, сравниваемого с минимальным }      buf:integer;             { буфер, используемый при обмене эл-тов массива}      k:integer; begin cls;      writeln('Сортировка');      for i:=1 to SIZE-1 do      begin      { поиск минимального эл-та  в части массива от a[i] до a[SIZE]}           for j:=i+1 to SIZE do begin                if a[j]>a[i] then                { поменяем местами a[j] и a[i] }               begin  buf:=a[i];                a[i]:=a[j];                a[j]:=buf; end;           {выведем массив }           for k:=1 to SIZE do write(a[k],' ');           writeln;                  end;     end;     writeln('Массив отсортирован.'); end.Как осуществить организацию ввода через константы!!! Не могу понять в чём ошибкаДобавлено через 5 минутPascal1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 //по убыванию program sortarr; const      SIZE=10; var      a:array[1..SIZE] of integer;      i:integer;                 { номер элемента, от которого ведется поиск }                                     { минимального эл-та }      min:integer;            { номер минимального элемента в части }                                     { массива от i до верхней границы массива }      j:integer;                 { номер эл-та, сравниваемого с минимальным }      buf:integer;             { буфер, используемый при обмене эл-тов массива}      k:integer; begin cls;      writeln('Сортировка массива.');      write('Введите',SIZE:3,' целых в одной строке ');      writeln('через пробел и нажмите ');      for k:=1 to SIZE do read(a[k]);        writeln('Сортировка');      for i:=1 to SIZE-1 do      begin      { поиск минимального эл-та  в части массива от a[i] до a[SIZE]}           for j:=i+1 to SIZE do begin                if a[j]>a[i] then                { поменяем местами a[j] и a[i] }               begin  buf:=a[i];                a[i]:=a[j];                a[j]:=buf; end;           {выведем массив }           for k:=1 to SIZE do write(a[k],' ');           writeln;                  end;     end;     writeln('Массив отсортирован.'); end.А так работает!!!!!!!!!!!!!!!!Добавлено через 24 секунды Но нужно что бы было через константыДобавлено через 2 часа 25 минут Хотя бы примерно как нужно массив задавать через константы

  1. Даны действительные числа x,y.Определить,принадлежит ли точка с координатами x,y заштрихованной части плоскости.Помогите с программкой,конкретно этот график не могу понять.

  1. Даны действительные числа x, y. Определить, принадлежит ли точка с координатами x, y заштрихованной части плоскости.