сервис вопросов и ответовНапишите программу на языке программирования (или составьте алгоритм). Дано натуральное число n. Определите, сколько раз цифра «7» встречается в записи
5-9 класс|
|
данного числа.
Bilovolnatali
22 нояб. 2014 г., 12:25:35 (9 лет назад)
Торушка
22 нояб. 2014 г., 15:23:57 (9 лет назад)
var
a,b,k:integer;
begin
write('Введите число: ');
readln(a);
k:=0;
while a<>0 do
begin
b:= a mod 10;
a:= a div 10;
if b=7 then k:=k+1;
end;
writeln(k);
end.
Валенора
22 нояб. 2014 г., 17:44:40 (9 лет назад)
Я думаю так
String s = "" + n;
int kol = 0;
for (int i = 0; i < s.length(); i++)
{
if (s.charAt(i) == '7') kol++;
}
ИЛИ так
СЧИТАТЬ число
СколькоРазВстретилось=0
ПОКА число > 0
ЕСЛИ ОСТАТОК ДЕЛЕНИЯ(число;10) =7 ТОГДА СколькоРазВстретилось+1
число = ЦЕЛОЧИСЛЕННОЕ ДЕЛЕНИЕ(число;10)
КОНЕЦ ПОКА
ВЫВЕСТИ СколькоРазВстретилось
Мысль такая:
пока число не стало 0 повторяем:
Смотрим на последнюю цифру, если она 7 запоминаем
делим целочисленно на 10
повторить 1111111111222222222222222222222333333333333333333333333333334444444444444444444444444444455555555555555555555
Ответить
Другие вопросы из категории
1. Как дается расширение файлу?
2.Что показывает расширение?
3.Какие виды внутренней памяти стираются при выключении?
4.Что происходит при дефрагментации диска?
5.Из чего состоит программное обеспечение?
Для хранения информации человек придумал различные информационные носители.Что являеться инфомационными насителями: Телефон Телевизор карандаш очки книга
блакнот диск принтар
Дебилы
составте программу,которая заполняет массив a[1..10]случайными целыми числами в диапазоне от 1 до 10,затем преобразовывает его,увеличивая все элементы с
нечетными значениями в три раза,а элементы с чётными значениями заменяя на 0
Читайте также
1.Какое значение переменной S будет напечатано после выполнения фрагмента программы,записанной на языке программирования TURBO PASCAL:A:=2В: = 3;
if A>B then S: = A+B;
writeln (S);
Варианты ответов:1)5 ;2)6; 3)7; 4)8
2. Какое значение переменной S будет напечатано после выполнения фрагмента программы, записанной на языке программирования PASCAL:
S: =1;
N: =1;
while N<=3 do
begin
S: = S*N;
N: = N+1;
end;
writeln(S);
Варианты ответов: 1)2 ; 2)1; 3)0; 4)4
из математической записи создать запись на языке программирования.
а)2,136+2/3y
б)(x-5)+a/3ax
Например:
Математическая запись: Запись на языке программирования:
a+3b-2c (a+3 умножить на b-2 умножить на c):(7 умножить на a+2)
Срочно!
РЕШИТЕ ХОТЬ ЧТО-НИБУДЬ!!!:з 1.Линейные программы Напишите программу на ШАЯ.Вычислите значения следующих выражений: f=t*t/2+t
2.Условный оператор(ветвление)
Нарисуйте блок-схему.Дано два числа.Верно ли, что он равны?
3.Циклы
Напишите программу на Паскале. Выведите на экран табицу умножения на 4 в виде 1+4=4,2+4=8,....9*4=36.
4.Одномерные массивы
Напишите программу на Паскале.Подсчитайте количество максимальных элементов массива А [1..12].
5.Двумерные массивы
Напишите программу на Паскале. создать массив случайны чисел В[1..6,1..6].Все элементы массива, расположенные выше главной диагонали сделать равными О.Вывести исходный и исправленный массивы.
Написать программу на языке программирования Pascal.
Перевод дюймов в сантиметры (1дюйм=2,54см). Нужно, чтобы при запуске программы на экране выходило в два столбика дюймы и сколько это будет сантиметров. До 20 чисел. Через оператор While.
дано натуральное число N, Написать ему выводящую на экран последовательность натуральность натуральных чисел от 1 до N, задание 2 дано натуральное число
N, Написать ему выводящую на экран последовательность натуральность натуральных чисел отN до 1, номер 3 Даны натуральные числа N и К.Написать программу выводящую на экран последовательность из N чисел , каждое из которых равно К хотя бы что нибудь решите помогите очень надо!!!!!!!!!
Вы находитесь на странице вопроса "Напишите программу на языке программирования (или составьте алгоритм). Дано натуральное число n. Определите, сколько раз цифра «7» встречается в записи", категории "информатика". Данный вопрос относится к разделу "5-9" классов. Здесь вы сможете получить ответ, а также обсудить вопрос с посетителями сайта. Автоматический умный поиск поможет найти похожие вопросы в категории "информатика". Если ваш вопрос отличается или ответы не подходят, вы можете задать новый вопрос, воспользовавшись кнопкой в верхней части сайта.