На целочисленной прямой произвольно заданы четыре точки a, b, c, d. определите, сколько целых чисел принадлежат одновременно отрезку ab и отрезку cd. написать программу в паскале
// PascalABC.NET 3.2, сборка 1485 от 15.06.2017 // Внимание! Если программа не работает, обновите версию!
begin var a,b,c,d:integer; Write('Введите через пробел значения a,b,c,d: '); Read(a,b,c,d); if a>b then Swap(a,b); if c>d then Swap(c,d); var ab:=Range(a,b); var cd:=Range(c,d); var n:=ab.Intersect(cd).Count; Write('Количество целых чисел равно ',n) end.
Пример Введите через пробел значения a,b,c,d: 3 10 12 5 Количество целых чисел равно 6
1) var i, max, maxin: smallint; arr1, arr, sum: array[1..25] of smallint;
begin max := -(MaxSmallInt); randomize(); for i := 1 to 25 do begin arr[i] := Random(-100, 100); arr1[i]:=arr[i]; write(arr[i], ' '); while arr[i] <> 0 do begin sum[i] := abs(arr[i] mod 10) + sum[i]; arr[i] := arr[i] div 10; if sum[i] > max then begin max := sum[i]; maxin:=i; end; end; end; writeln(); writeln(arr1[maxin]); end.
2) var i, sum: byte; arr: array[1..20] of byte;
begin sum := 0; randomize(); for i := 1 to 20 do begin arr[i] := random(10); write(arr[i], ' '); if arr[i] = i then sum := i + sum; end; writeln(); writeln(sum); end.
// Внимание! Если программа не работает, обновите версию!
begin
var a,b,c,d:integer;
Write('Введите через пробел значения a,b,c,d: ');
Read(a,b,c,d);
if a>b then Swap(a,b); if c>d then Swap(c,d);
var ab:=Range(a,b); var cd:=Range(c,d);
var n:=ab.Intersect(cd).Count;
Write('Количество целых чисел равно ',n)
end.
Пример
Введите через пробел значения a,b,c,d: 3 10 12 5
Количество целых чисел равно 6