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

Паскаль! натуральное число называется числом армстронга, если сумма цифр числа, возведенных в 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.

👇
Ответ:
899600327811
899600327811
28.03.2021
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.
4,6(15 оценок)
Открыть все ответы
Ответ:
PolinaCat29
PolinaCat29
28.03.2021
// PascalABC.NET 3.1, сборка 1200 от 13.03.2016

function gcd(a,b:integer):integer;
// Нахождение НОД
begin
  while b<>0 do
  begin
    a:=a mod b;
    var i:=b; b:=a; a:=i
  end;
  Result:=a
end;

procedure Shorter(var a,b:integer);
// "сокращатель" дроби
begin
  var k:=gcd(a,b);
  a:=a div k;
  b:=b div k
end;

begin
  var a,b:integer;
  Writeln('Введите числитель и знаменатель дроби: ');
  Read(a,b);
  Write(a,'/',b,'='); Shorter(a,b); Writeln(a,'/',b)
end.

Тестовое решение:
Введите числитель и знаменатель дроби:
25 15
25/15=5/3
4,7(68 оценок)
Ответ:
BlaSta
BlaSta
28.03.2021

<h1>Таблица</h1>

<div style="margin-left: 30%;margin-bottom: 100px;">

<form action="" method="POST">

<table>

<tr><td>

           <label for="surname">Фамилия:</td><td><input type="text" name="surname" id="name" value="<?php echo $surname; ?>"></label></td>

           </tr><tr>

           <td>

           <label for="name">Имя:</td><td><input type="text" name="name" id="name" value="<?php echo $name; ?>"></label></td>

           </tr><tr>

           <td>

           <label for="patronymic">Отчество:</td><td><input type="text" name="patronymic" id="patronymic" value="<?php echo $patronymic; ?>"></label></td>

           </tr><tr>

           <td>

           <label for="age">Дата рождения:</td><td><input type="text" name="age" id="age" value="<?php echo $age; ?>"></label> </td>

           </tr><tr>

           <td>

          <label for="phone">Телефон:</td><td><input type="text" name="phone" id="phone" value="<?php echo $phone; ?>"></label></td>

           </tr><tr>

           <td>

         <label for="gender">Пол:</td><td><input type="text" name="gender" id="gender" value="<?php echo $gender; ?>"></label>

           </tr><tr>

           </td>

           <label for="address">Баланс:</td><td><input type="text" name="balance" id="balance" value="<?php echo $balance; ?>"></label>                        </td>

          </tr><tr>

             <label for="address">Скидка:</td><td><input type="text" name="discount" id="discount" value="<?php echo $discount; ?>"></label></td>

          </tr><tr>

<label for="address">Бонус:</td><td><input type="text" name="bonus" id="bonus" value="<?php echo $bonus; ?>"></label></td>

       </table>

       <input type="hidden" name="id" value="<?php echo($id);?>">

       <input type="submit" value="<?php echo($button);?>">

       </form>

Длина символов строки и маска для номера задается в SQL server.

4,5(82 оценок)
Это интересно:
Новые ответы от MOGZ: Информатика
logo
Вход Регистрация
Что ты хочешь узнать?
Спроси Mozg
Открыть лучший ответ