• 
  • 28 September 2012
  Английский язык
  • Автор: Чучундра8806

  

  1. Вычислить значение функции у=х^3 на отрезке [a,b]

  2. Вычислить количество чисел, кратных 4, на отрезке от 49 до 215.

  3. Среди набора четырехзначных чисел найти произведение тех, которые оканчиваются на 3.

  4. Вывести на экран числа в интервале от 221 до 778, в которых первая и последняя цифры совпадают.

  5. Среди набора пятизначных чисел вывести на экран количество чисел-палиндромов.( ЧИСЛА-ПАЛИНДРОМЫ-ЭТО ЧИСЛА КОТОРЫЕ ЧИТАЮТСЯ С ПРАВО - НАЛЕВО И СЛЕВО-НАПРАВО. №62526) РЕШИТЕ 5 ЗАДАЧ ПОЖАЛУЙСТА ЧЕРЕЗ ПАСКАЛЬ))))

• 
  • 28 September 2012
  • Ответ оставил: Sofyaastakhova

  1)

  var a,b,x,y:longint;

  begin

  write("Vvedite nachalo i konec otrezka: ");

  read(a,b);

  write("Vvedite x: ");

  read(x);

  y:=sqr(x)*x;

  if (y>a)and(y<b) then write("Na dannom otrezke znachenie funkcii ravno ",y) else write("Na dannom otrezke net reshenii");

  readln

  end.

  2)

  var c,i:byte;

  begin

  for i:=49 to 215 do

  if (i mod 4=0) then c:=c+1;

  write("Kolichestvo chisel, kratnyh 4 na zadannom promezhutke ravno ",c);

  readln

  end.

  3)

  var i:integer;

  p:longint;

  for i:=1000 to 9999 do

  if (i mod 10=3) then p:=p*i;

  write("Proizvedenie chetyrehznachnyh chisel, okanchivaushihsya na 3 ravno ",p);

  readln

  end.

  4)

  var i:byte;

  c:integer;

  begin

  for i:=221 to 778 do

  if ((i mod 10)=(i div 100)) then c:=c+1;

  write("Kolichestvo chisel ravno ",c);

  readln

  end.

  5)

  var i:longint;

  c:integer;

  begin

  for i:=10000 to 99999 do

  if ((i mod 10)=(i div 10000))and(((i mod 100)div 10)=((i div 1000)mod 10)) then c:=c+1;

  write("Kolichestvo chisel ravno ",c);

  readln

  end.

  0
• 
  • НЕ НАШЛИ ОТВЕТ?

  Если вас не устраивает ответ или его нет, то попробуйте воспользоваться поиском на сайте и найти похожие ответы по предмету школьной программы: английский язык.
  На сегодняшний день (14.03.2025) наш сайт содержит 244794 вопросов, по теме: английский язык. Возможно среди них вы найдете подходящий ответ на свой вопрос.

  Найти другие ответы
• Нажимая на кнопку "Ответить на вопрос", я даю согласие на обработку персональных данных

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

Последние опубликованные вопросы