wiki.nntc.nnov.ru - Вклад участника [ru]

Обсуждение:Итоговая таблица 2ВМК-3

2008-03-18T11:06:10Z

192.168.159.9:

LOL
сам LOL

!!!!!!!!!!!!!!!!

И все же он ботан!!!!!!!!!!!1

Однозначно ботаннннн!!!!!!!!!!Паша Клим!!!

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

2008-02-20T08:26:05Z

192.168.159.9: /* Вариант 9. */

==Теоретические сведения==
Простые типы данных в языке 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;

{$APPTYPE CONSOLE}

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. Найти все трехзначные числа, в которых есть две одинаковых цифры.

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

2008-02-20T07:47:03Z

192.168.159.9: /* Пример */

==Теоретические сведения==
Простые типы данных в языке 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.Найти количество различных цифр в данном натуральном числе. ВМК- РУЛИТ!!!!!!!!!1

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

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

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

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

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

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

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

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

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

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

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

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

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

2008-02-20T07:46:00Z

192.168.159.9: /* Задания */

==Теоретические сведения==
Простые типы данных в языке 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.
3. Забейте на все

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

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

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

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

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

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

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

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

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

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

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

2008-02-20T07:44:44Z

192.168.159.9: /* Вариант 10. */

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

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

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

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

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

2008-02-20T07:43:37Z

192.168.159.9: /* Вариант 10. */

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

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

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

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

YНичего нрешать не нужно!!!!!!!!!!!!!!!!

Wiki.nntc.nnov.ru:Портал сообщества

2007-11-08T11:03:54Z

192.168.159.9:

Новое сообщество
Ктулху!!!