сервис вопросов и ответовДано натуральное число N. Выяснить, входит ли цифра 7 в запись числа N2.( решение в паскале) Помогите буду очень благодарна
10-11 класс|
|
Bellaavdonina
02 авг. 2013 г., 4:10:30 (10 лет назад)
Kiil99
02 авг. 2013 г., 6:40:20 (10 лет назад)
var n:longint;
f:boolean;
begin
write ('N = ');
readln (n);
f:=false;
while (n<>0) do
begin
if (n mod 10)=7 then
begin
f:=true;
break;
end;
n:=n div 10;
end;
if f then writeln ('YES') else writeln ('NO');
end.
Oleg2014ostap
02 авг. 2013 г., 7:34:46 (10 лет назад)
в запись числа N2?? Это все условие или еще что есть?
Margoice
02 авг. 2013 г., 8:24:21 (10 лет назад)
n в квадрате, больше нету условия
Elgun638
02 авг. 2013 г., 10:07:27 (10 лет назад)
Так напиши в программе,что снизу, после строчки readln(n) строку n:=sqr(n).Только при вводе больших чисел может произойти переполнение, и результат будет неверным. Так как, диапозон чисел типа longint составляет [-2147483648..2147483647]
Ответить
Другие вопросы из категории
дана программа нахождения суммы всех элементов массива. Изменить программу таким образом,чтобы:
a) массив состоял из 15 элементов вещественного типа;
b) значения элементов массива должны меняться в интервале от 0 до 5;
c) в результате выполнения программы должно быть найдено произведение всех элементов массива, а не их сумма
Program massiv;
const n=10;
Var a: array [1..n] of integer;
s,i integer;
Begin
writeln (‘ исходный массив.‘);
For i:= 1 to n do
begin
a [ i] := random (10);
write (‘a[‘i'] =', a[i], '');
end;
s:=0;
For i:= 1 to n do
s:= s+a[i];
Writeln (‘ сумма всех элементов массива S=‘, s);
end.
Перевести данное число из десятичной системы счисления в двоичную, восьмеричную и шестнадцатеричную системы счисления. а) 164(10); б) 255(10); в)
712,25(10); г) 670,25(10); д)11,89(10)
Читайте также
Помогите пожалуйста решить 1) дано натуральное число. Определить номер цифры 3 в нем считая от конца числа. Если такой цифры нет то ответ
0,если их несколько то номер крайней правой.
2) Дано натуральное число. Определить сумму m его последних цифр
3)Дано натуральное число. определить его максимальную цифру.
4) дано предложение. заменить в нем все вхождения под строку str1 на подстроку str2
5) последовательность чисел Фибоначчи образуется так: первый и второй член последовательности равен 1, каждый следующий равен сумме двух предыдущих(1,1,2,3,5,,8,12..) Дано натуральное число n>=3 : а) найти k-й член последовательности б)получить первые n членов последовательности в)для заданного n определить верно ли,что сумма первых n членов есть четное число
1.дано натурально четырехзначное число. определить цифры этого числа (K,L.M.N) и выяснить можно ли построить ромб со сторонами K,L.M.N.в паскале АВС.
2.дано натурально число N вычислить куб суммы этого числа
1.Дано натуральное число:
a) найти произведение цифр числа б) верно ли, что в данном числе нет данной цифры А (цифру А вводить с клавиатуры)
2. Найти все трехзначные числа, которые при увеличении на 1 делятся на 2, при увеличении на 2 делятся на 3, при увеличении на 3 делятся на 4, а при увеличении на 4 делятся на 5.
3.Из данного натурального числа удалить все цифры А (а вводятся с клавиатуры).
Написать программы в паскале и желательно блок-схему, но можно и без нее.
Помогите пожалуйста)
4 задачи: ввести натуральное число и определить, верно ли, что сумма цифр равна 10 (через repeat и until)//// ввести натуральное
число и определить, какие цифры встречаются несколько раз (через repeat и until)///
ввести целое число и найти сумму его цифр (через while)
ввести целое число и определить , верно ли, что в его записи есть две одинаковые цифры(через while)
всё через паскаль абс
Дано 4-значное число. Найти: 1) число, полученное при прочтении его цифр справа налево; 2) число, образованное перестановкой двух первых и двух
последних цифр заданного числа; 3) число, образованное перестановкой второй и четвёртой цифр заданного числа.
Вы находитесь на странице вопроса "Дано натуральное число N. Выяснить, входит ли цифра 7 в запись числа N2.( решение в паскале) Помогите буду очень благодарна", категории "информатика". Данный вопрос относится к разделу "10-11" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.