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

Задано целое число N (>0). C операциями деления нацело и взятия остатка от деления определить, имеются ли в записи числа N цифра 2.

26.10.2010, 13:49. Показов 1985. Ответов 1
Метки нет (Все метки)

1. Задано целое сило N (>0). C операциями деления нацело и взятия остатка от деления определить, имеются ли в записи числа N цифра 2. Если имеется то вывести true, если не имеется то false
(Использовать цикл с пред или пост условием и использовать логическую переменную)

2. Дано целое число N (> 1). Если оно является простым, то вывести TRUE,
иначе вывести FALSE.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
26.10.2010, 13:49
Ответы с готовыми решениями:

Дано целое число N(>0).используя операции деления нацело и взятия остатка от деления, найти количество и сумму его цифр.
помогите, пожалуйста Дано целое число N(>0).используя операции деления нацело и взятия остатка от...

Дано целое число больше 999. Используя одну операцию деления нацело и одну операцию взятия остатка от деления
Дано целое число больше 999. Используя одну операцию деления нацело и одну операцию взятия остатка...

Используя операции деления нацело и взятия остатка от деления, найти количество и сумму цифр числа
Можете решить вот эти задачи.. Заранее спасибо!!:friends: 1) Дано целое число N(>0). Используя...

С помощью операций деления нацело и взятия остатка от деления определить, имеется ли в записи числа N цифра «2»
Дано целое число N (> 0). С помощью операций деления нацело и взятия остатка от деления определить,...

1
Почетный модератор
64069 / 47481 / 32732
Регистрация: 18.05.2008
Сообщений: 115,185
26.10.2010, 14:40 2
Лучший ответ Сообщение было отмечено Stalker77 как решение

Решение

1.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
uses crt;
var n:longint;
    f:boolean;
begin
clrscr;
repeat
write('Введите целое число больше 0 n=');
readln(n);
until n>0;
f:=false;
while (n>0)and not f do
 begin
  if n mod 10=2 then f:=true
  else n:=n div 10;
 end;
write(f);
readln
end.
Добавлено через 1 минуту
2.
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
uses crt;
var n,i,j,k:longint;
    f:boolean;
begin
clrscr;
repeat
write('Введите число больше 0 n=');
readln(n);
until n>0;
if n<2 then f:=false
else
 begin
  f:=true;
  j:=2;
  while (j<=round(sqrt(n)))and f do
   begin
    if n mod j=0 then f:=false
    else j:=j+1;
   end;
 end;
write(f);
readln
end.
1
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
26.10.2010, 14:40

Используя операции деления нацело и взятия остатка от деления, найти количество и сумму цифр числа
7 Дано целое число N &gt;0. Используя операции деления нацело и взятия остатка от деления, найти...

Дано число вывести все его цифры в столбик, используя операции деления нацело и взятия остатка от деления
Дано целое число N. Используя операции деления нацело и взятия остатка от деления, вывести все его...

Введите два числа и найдите частное от деления нацело первого числа на второе и остаток от деления нацело, используя только операцию вычитания
Введите два числа и найдите частное от деления нацело первого числа на второе и остаток от деления...

С помощью операции деления нацело и взятия остатка от деления определить имеется ли в записи числа n цифра "2"
я решила задачу но она выводит только однозначные цифры а многозначные не решает. может я решила...


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

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

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