ПОМОГИТЕ СОСТАВИТЬ ПРОГРАММУ. ЗАРАНЕЕ СПАСИБО!!! Дано натурально число n.верно ли, что в записи числа три раза встречается цифра 5?
5-9 класс
|
program msd;
uses crt;
var a,k,i,l:LONGINT;
begin
clrscr;
readln(a);
while true do
begin
l:=a mod 10;
a:= a div 10;
if l = 5 then k:=k+1;
if a = 0 then break;
end;
if k = 3 then writeln('DA')
eLSe WRITeLN('NeT');
ReADKeY;
eND.
Другие вопросы из категории
Пример ввода:3.5
Пример вывода:Число дробное
4л в емкости В,изпользовав минимальное колличество воды.Пожалуйста решите!!Желательно по быстрее!
Читайте также
2)Составить программу которая вычисляет произведение натуральных чисел от 5 до 10.
верно ли,что первая цыфраа данного числа чётная?
3)найти все трёхзначные числа,которые состоят из разных цыфр,а их сумма равна А(А вводится с клавиатуры)
4)найти все симметричные натуральные числа(палиндромаиз промежутка от А до В(А и В вводится с клавиатуры)
Клоун
предложил каждому из публики задумать число. Потом он сказал: «Прибавьте к
задуманному числу 5. Теперь из результата вычтите 2. А теперь к результату
прибавьте 7». Потом клоун спросил у желающих, какое число у каждого из них
получилось. Услышав ответ, он немедленно объявлял каждому, какое число тот
задумывал. Составьте программу, которая повторяла бы фокус клоуна.
Срочно надо программу надо на Паскале
дано натуральное число n. вычислить s=1*2+2*3*4+...+n*(n+1)*...*2n
Заранее очень благодарна
дни(например, если введено число 1, то; 1 января - новый год , 7 января - Рождество).