Лабораторная работа №1 Программирование задач обработки данных простых стандартных типов

Теоретические сведения

Простые типы данных в языке Turbo Delphi: порядковые (целые, символьный, логический, перечисляемый, диапазон) и вещественный. Данный пример демонстрирует использование целых типов данных в программах.

Пример

Дано натуральное число N. Определить количество цифр в нем и вывести каждую цифру.

Рrogram prim1;
Var m,n:LongInt;     {n-число, m-вспомогательная  переменная}
k:Integer;           { k-счетчик количества цифр}
begin
  Write('Введите целое число: '); ReadLn(n);
  m:=n;  k:=0;
  WriteLn('Выводим цифры, начиная с младшего разряда');
  While m<>0 do    {пока m не станет равно 0 уменьшаем его - делим на 10}
     begin                  {добавляем единицу в счетчик и выводим   остаток от деления на 10}
          k:=k+1;
          WriteLn(m mod 10);    {вывод очередной цифры}
          m:=m div 10;                {уменьшаем число - отбрасываем последнюю цифру}
     end;
  WriteLn('Число ',n,' содержит ',k,'цифр');
  ReadLn;
end.

Задания

Составьте блок-схемы и программы к задачам своего варианта.

Вариант 1.

1.Дано натуральное число. Найти сумму цифр этого числа. Определить: верно ли, что число начинается и заканчивается одной и той же цифрой.

2.Найти все трехзначные натуральные числа, такие, что сумма цифр равна А, а само число делится на В без остатка. (А и В вводятся с клавиатуры).

Вариант 2.

1. Дано натуральное число. Найти произведение цифр этого числа. Определить: верно ли, что в этом числе нет цифры А. (А ввести с клавиатуры).

2. Из данного натурального числа удалить все цифры А (А вводится с клавиатуры).

Вариант 3.

1. Дано натуральное число. Определить количество цифр данного числа. Верно ли, что данное число заканчивается на нечетную цифру?

2. Найти все симметричные натуральные числа из промежутка от А до В.

Вариант 4.

1. Дано натуральное число. Определить количество четных цифр данного числа. Верно ли, что данная цифра А встречается в числе более двух раз. (А ввести с клавиатуры)

2.Найти количество различных цифр в данном натуральном числе.

Вариант 5.

1. Дано натуральное число. Найти первую и последнюю цифры данного числа. Верно ли, что сумма цифр данного числа равна А. (А ввести с клавиатуры)

2. Дано натуральное число. Приписать к нему такое же число.Т.е. было 231, стало - 231231

Вариант 6.

1. Дано натуральное число. Определить, сколько раз данная цифра А встречается в числе. Верно ли, что в данном числе сумма цифр больше В, а само число делится на А. (А и В ввести с клавиатуры)

2. Найти все четырехзначные числа, в которых есть две одинаковых цифры.Учаев,привет

Вариант 7.

1. Дано натуральное число. Найти количество цифр данного числа, больших введенной цифры А. Определить принадлежность данного числа интервалу от А до В и кратность 3, 4 и 5. (А и В ввести с клавиатуры).

2. Найти все несимметричные натуральные числа от А до В.

Вариант 8.

1. Дано натуральное число. Найти вторую (с начала) цифру данного числа. Верно ли, что данное число делится на А,В,С - числа, введенные с клавиатуры.

2. Найти все двухзначные числа, которые при умножении на 2 заканчиваются цифрой 8,а при умножении на 3 цифрой 4.

Вариант 9.

1. Дано натуральное число. Определить, сколько четных цифр в записи данного числа.

program LB1; uses

 SysUtils;

var n,k,t,i,v:longint; begin writeln('vvedite naturalnoe chislo'); readln(n); while n>10 do begin

          t:=n mod 10;
          i:=t mod 2;
          if i=0 then k:=k+1;
          n:=n div 10;
           end;

v:=n mod 2; if v=0 then k:=k+1; writeln('Kolichestvo chetnih cifr ravno',k); readln; end.

2. Найти все симметричные четырехзначные числа.(Например такое - 6776)

Вариант 10.

1. Дано натуральное число. Определить, сколько раз в этом числе встречается первая цифра.

2. Найти все трехзначные числа, в которых есть две одинаковых цифры.