Найдите неотрицательную разность двух чисел, если сумма этих чисел равна их произведению и разности их квадратов. На сколько натуральных чисел от25 марта 2012
2. Найдите неотрицательную разность двух чисел, если сумма этих чисел равна их произведению и разности их квадратов. 3. На сколько натуральных чисел от 1 до 1000 меньше, нежели четных натураль-ных чисел от 1 до 2012?4. Точка O центр параллелограмма ABCD. Луч выходит из вершины A, делит по-полам отрезок BO и пересекает сторону BC в точке E. Во сколько раз длина от-резка BE меньше длины отрезка CE?5. Найдите сумму 60(x + y), если 4x2+ 9y2= 10, 2xy = 1.6. Числа от 1 до 16 написаны по одному на 16 карточках разного цвета. Петя и Вася берут себе карточки с условием, что если взял карточку, то надо себе за-брать и все карточки того же цвета. Так одни цвета достались одному, другие –другому. Каждый подсчитал сумму чисел на своих карточках. Они оказались разными. Стали они думать, как надо было брать карточки, чтобы суммы оказа-лись равными, и пришли к выводу, что такого не существует. Какое наименьшее число цветов карточек могло быть?7. На сколько процентов надо увеличить зарплату Пете, чтобы он стал получать в 2,5 раза больше, нежели получает сейчас?8. Сколько трёхзначных чисел N, обладающих следующим свойством: из цифр числа N можно составить шесть различных двузначных простых чисел?9. Сколько целых значений A, при которых сумма модулей выражений 2A – 100 и 150 – A принимает значения от 150 до 400 (включая 150 и 400)?10. Парабола f (x) = 2x2+ bx + c пересекает ось OX в точках с абсциссами 10 и 2012. Найдите ординату пересечения параболы с осью OY
Program z18; Var a: array [1..1000] of string; i,j,l,min,h:integer; s:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 2; min:=a[1].Length; while (a[i] <> '') do begin l:=a[i].Length; if (l < min) then h:= i; i:= i + 1; end; writeln(a[h]);End.
Program z19; Var a: array [1..1000] of string; i,j,l,min:integer; s:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше'; write(a[i], ' '); i:= i + 1; end;End.
2. Найдите неотрицательную разность двух чисел, если сумма этих чисел равна их произведению и разности их квадратов.
3. На сколько натуральных чисел от 1 до 1000 меньше, нежели четных натураль-ных чисел от 1 до 2012?4. Точка O центр параллелограмма ABCD. Луч выходит из вершины A, делит по-полам отрезок BO и пересекает сторону BC в точке E. Во сколько раз длина от-резка BE меньше длины отрезка CE?5. Найдите сумму 60(x + y), если 4x2+ 9y2= 10, 2xy = 1.6. Числа от 1 до 16 написаны по одному на 16 карточках разного цвета. Петя и Вася берут себе карточки с условием, что если взял карточку, то надо себе за-брать и все карточки того же цвета. Так одни цвета достались одному, другие –другому. Каждый подсчитал сумму чисел на своих карточках. Они оказались разными. Стали они думать, как надо было брать карточки, чтобы суммы оказа-лись равными, и пришли к выводу, что такого не существует. Какое наименьшее число цветов карточек могло быть?7. На сколько процентов надо увеличить зарплату Пете, чтобы он стал получать в 2,5 раза больше, нежели получает сейчас?8. Сколько трёхзначных чисел N, обладающих следующим свойством: из цифр числа N можно составить шесть различных двузначных простых чисел?9. Сколько целых значений A, при которых сумма модулей выражений 2A – 100 и 150 – A принимает значения от 150 до 400 (включая 150 и 400)?10. Парабола f (x) = 2x2+ bx + c пересекает ось OX в точках с абсциссами 10 и 2012. Найдите ординату пересечения параболы с осью OY
Program z19; Var a: array [1..1000] of string; i,j,l,min:integer; s:string;Begin write('Введите строку - '); readln(s); l:=s.Length; i:= 1; j:= 1; while i <= l do begin while (s[i] <> ' ') and (i <= l) do begin a[j]:=a[j] + s[i]; i:= i + 1; if (i > l) then break; end; j:= j + 1; i:= i + 1; end; i:= 1; while (a[i] <> '') do begin if ((a[i] = 'мое') or (a[i] = 'Мое')) then a[i]:= 'наше'; write(a[i], ' '); i:= i + 1; end;End.