Форум программистов, компьютерный форум, киберфорум
Pascal (Паскаль)
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.64/11: Рейтинг темы: голосов - 11, средняя оценка - 4.64
1 / 1 / 0
Регистрация: 21.12.2010
Сообщений: 17
1

цифра пять входит ли в десятичную запись 4х-значного числа k

29.12.2010, 16:22. Просмотров 2291. Ответов 2
Метки нет (Все метки)


остался один номер как делать не знаю, точто знакомые помогли не подошло,кто знает прошу откликнуться

задание: Написать программу проверяющую истинность высказывания: цифра пять входит в десятичную запись 4х-значного числа k

мне сказали что должно быть выполнено следующим образом: вбивается число и программа должна проверить и сравнить с пятью сначало первое число,потом второе,третье и четвёртое

есть эта программа немного в другом виде,но препод требует переделать так

вот исходный вариант

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
program cifra;
var a,k:integer;
var flag:boolean;
begin
writeln('Введите 4х-значное число');
readln(k);
if ((1<=(k div 1000))and(10>(k div 1000)))
then begin
        flag:=false;
        a:=k;
        if (((a mod 5)=0)and((a mod 2)<>0))
        then flag:=true
        else begin
               a:=(a div 10);
               if (((a mod 5)=0)and((a mod 2)<>0))
               then flag:=true
               else begin
                    a:=(a div 10);
                    if (((a mod 5)=0)and((a mod 2)<>0))
                    then flag:=true
                    else begin
                           a:=(a div 10);
                           if ((a mod 5)=0) then flag:=true;
                         end
                    end
             end;
         if (flag=true) then writeln('Цифра пять входит в десятичную запись 4х-значного числа')
                        else writeln('Цифра пять не входит в десятичную запись 4х-значного числа')
     end
else begin
writeln('Число не 4х-значное!');
     end;
end.
заранее спасибо
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.12.2010, 16:22
Ответы с готовыми решениями:

Определить, входит ли определенная цифра в десятичную запись введенного числа
Напишите программу которая вводит трехзначное число и десятичную цифру. Определить входит ли эта...

Цифра М входит в десятичную запись четырехзначного числа N
. Цифра М входит в десятичную запись четырехзначного числа N.

Определить входит ли цифра М в десятичную запись четырехзначного числа N
Цифра М входит в десятичную запись четырехзначного числа N. надо определить да или нет. я чет не...

Цифра пять входит в десятичную запись черырехзначного числа K
Написать программу, проверяющую истинность высказывания «Цифра пять входит в десятичную ...

2
2855 / 1984 / 788
Регистрация: 23.09.2010
Сообщений: 4,877
29.12.2010, 16:41 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
Uses
 CRT;
Var
 n,kol,l:longint;
begin
repeat
 write('N: ');
 readln(n);
until (n>=1000) and (n<=9999);
while n<>0 do
begin
 if n mod 10=5 then
  inc(kol);
 n:=n div 10;
end;
if (kol=0) or (kol=1) then
 writeln('Öèôðà ïÿòü âõîäèò â  4õ-çíà÷íîå ÷èñëî ',kol,' ðàç')
else
writeln('Öèôðà ïÿòü âõîäèò â  4õ-çíà÷íîå ÷èñëî ',kol,' ðàça');
readkey
end.
0
1 / 1 / 0
Регистрация: 21.12.2010
Сообщений: 17
30.12.2010, 00:49  [ТС] 3
спасибо,выручил
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
30.12.2010, 00:49

Заказываю контрольные, курсовые, дипломные и любые другие студенческие работы здесь или здесь.

Проверить, что цифра пять входит в десятичную запись черырехзначного числа
Написать программу, проверяющую истинность высказывания «Цифра пять входит в десятичную ...

Определить, входит ли цифра в десятичную запись трехзначного числа
1.Хватит ли в баке автомобиля бензина, чтобы доехать до ближайшей заправочной станции? ...

Входит ли введенная цифра в десятичную запись введенного вами трехзначного числа
Составьте программу, определяющую, входит ли введенная вами цифра в десятичную запись введенного...

Программа, определяющая, входит ли введенная цифра в десятичную запись введенного трехзначного числа
Вопрос 1.1. Эквиваленты ли следующие операторы языка С++: char grade = 65; char grade =...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
3
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2021, vBulletin Solutions, Inc.