socofilesrus4
?>

Паскаль! натуральное число называется числом армстронга, если сумма цифр числа, возведенных в k -ю степень (где k – количество цифр в числе) равна самому числу. например, 153 = 1^ 3 + 5^ 3 + 3^ 3 . напишите программу, которая находит все числа армстронга на отрезке [ a , b ] . входные данные входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. гарантируется, что a ≤ b . выходные данные программа должна вывести в одну строчку все числа армстронга на отрезке [ a , b ] , разделив их пробелами. если таких чисел нет, программа должна вывести число -1. у меня программа написана, но она просто выводит все числа армстронга, учесть промежуток от a до b и если таких чисел нет то вывести -1 var i, l, k, a, b, c, s, e, g, f, x, h, j: integer; begin for i: =100 to 9999 do begin l: =i; while l< > 0 do begin l: =l div 10; k: =k+1; end; if k=3 then begin a: =i mod 10; b: =i div 100; c: =i div 10 mod 10; s: =a*a*a+b*b*b+c*c*c; if i=s then write(i, ' '); end else begin e: =i mod 10; g: =i div 10 mod 10; f: =i div 100 mod 10; x: =i div 1000; h: =f*f*f*f+g*g*g*g+e*e*e*e+x*x*x*x; if i=h then write(i, ' '); end; k: =0; end; end.

Информатика

Ответы

Yuliya_Viktoriya316
Program Project1;
var
  a,b: integer;
  i,j,k,
  ci,
  si,mi,
  errkod: integer;
  sti: string;
  flag: Boolean;
begin
  Readln(a,b);
  flag:=false;
  for i:=a to b do
  begin
    str(i, sti);
    si:=0;
    for j:=1 to Length(sti) do
    begin
      val(sti[j],mi,errkod);
      ci:=1;
      for k:=1 to Length(sti) do
        ci:=ci*mi;
      si:=si+ci;
    end;
    if si=i then
    begin
      write(si,' ');
      flag:=true
    end;
  end;
  if not flag then write(-1);
  Readln;
 end.
nikitavertiev98400

1) Система управления базами данных

2)

3)Поле БД - это столбец таблицы содержащий определенные свойства

запись БД - это строка таблицы записанная в поля

4)

1) создать пустую базу данных;

2) создать таблицы базы данных;

3) связать таблицы (создать схему данных) с указанием правил контроля целостности данных;

4) заполнить таблицы данными.

5)

Конструктор - это то, с чего Вы делаете таблицы, запросы, формы и т. д.

Таблицы – это основные объекты любой базы данных. В них хранятся все данные, имеющиеся в базе, а так же таблицы хранят и структуру базы (поля, их типы и свойства).

6) 1) Откройте таблицу в режиме конструктора. Измените имя поля.

   2) Щелкнуть левой кнопкой мыши в столбце Имя поля (Field Name) на имени поля, подлежащего переименованию.

   Ввести новое имя поля или отредактировать старое имя.

   Нажать клавишу <Enter> или переместить указатель текущей записи на любую другую запись.

Объяснение:

В 6 2) не уверен вроде бы это тоже через конструктор.

Postnikova-StreltsovaKyulbyakova
3) Укажите правильную последовательность действий при работе с базами данных (составить последовательность из букв): 
c. Продумать структуру базы данных 
b. Дать имя каждому полю в базе данных 
a. Занести данные в таблицу 
d. Осуществить сортировку записей в базе данных 

4) Сортировка – это: 
c) расположение записей в определённом порядке 

5) Примером базы данных может служить: 
c) Телефонная книга 

6) В каком из перечисленных типов полей, данные могут выглядеть таким образом: 01. 07. 85? 
d) В поле дата/время 

7) Какая из перечисленных баз данных имеет представленный ниже вид: 
№ фамилия имя класс физика история 
1. Горин Петя 10 а 4 5 
2. Петров Юра 10 б 3 4 
3. Васильева Катя 11 а 5 5 
4. Петрова Юля 11 а 4 4 
d) Табличная 

8) Сколько полей в представленной выше базе данных? 
d) 6 

9) БД содержит информацию об учениках компью¬терной школы: имя; номер группы; за тест; за задание; общее количество . Какого типа должно быть поле «Общее количество бал¬лов»? 
c) числовое; 

10) БД содержит информацию о каждой собаке из клуба соба¬ководства: кличка, порода, дата рождения, пол, количестве медалей. Какого типа должны быть поля? 
b) текстовое, текстовое, дата, текстовое, числовое; 

11) Для отбора записей об учащихся, которые имеют по физике оценку «3» , а по истории не ниже «4» , нужно задать условие отбора по столбцам «физика» и «история» соответственно: 
c) = 3 и >=4 

12) Для выбора текстовых значений, начинающихся на букву « К » и состоящих из 4 символов, нужно задать условие отбора: 
c) К??? 

Ответить на вопрос

Поделитесь своими знаниями, ответьте на вопрос:

Паскаль! натуральное число называется числом армстронга, если сумма цифр числа, возведенных в k -ю степень (где k – количество цифр в числе) равна самому числу. например, 153 = 1^ 3 + 5^ 3 + 3^ 3 . напишите программу, которая находит все числа армстронга на отрезке [ a , b ] . входные данные входная строка содержит два натуральных числа – значения a и b , разделённых пробелами. гарантируется, что a ≤ b . выходные данные программа должна вывести в одну строчку все числа армстронга на отрезке [ a , b ] , разделив их пробелами. если таких чисел нет, программа должна вывести число -1. у меня программа написана, но она просто выводит все числа армстронга, учесть промежуток от a до b и если таких чисел нет то вывести -1 var i, l, k, a, b, c, s, e, g, f, x, h, j: integer; begin for i: =100 to 9999 do begin l: =i; while l< > 0 do begin l: =l div 10; k: =k+1; end; if k=3 then begin a: =i mod 10; b: =i div 100; c: =i div 10 mod 10; s: =a*a*a+b*b*b+c*c*c; if i=s then write(i, ' '); end else begin e: =i mod 10; g: =i div 10 mod 10; f: =i div 100 mod 10; x: =i div 1000; h: =f*f*f*f+g*g*g*g+e*e*e*e+x*x*x*x; if i=h then write(i, ' '); end; k: =0; end; end.
Ваше имя (никнейм)*
Email*
Комментарий*

Популярные вопросы в разделе

adrinalin991
jgaishun756
barnkim
Sakmarov
Раисовна878
Vika-simonenko
mariavayda88734
ikhilovb76
allo01
Zladthesecond577
Nevstrueva_Vasilevna
ski89439
rusdtver
ninakucherowa
Styazhkin395