Форум программистов, компьютерный форум, киберфорум
Free Pascal
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.67/15: Рейтинг темы: голосов - 15, средняя оценка - 4.67
0 / 0 / 0
Регистрация: 11.03.2014
Сообщений: 20
1

Составить линейную программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE – в противном случае

11.03.2014, 19:36. Показов 3021. Ответов 5
Метки нет (Все метки)

Всем привет! Помогите пожалуйста.
Составить линейную программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE – в противном случае. Высказывание: Сумма цифр заданного четырехзначного числа N превосходит произведение цифр этого же числа на 1.
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
11.03.2014, 19:36
Ответы с готовыми решениями:

Составить линейную программу, печатающую значение true, если указанное высказывание является истинным, и false — в противном случае.
Помогите решить плиз, очень надо, заранее огромное спасибо. Тока пишите подробно я полный профан в...

Составить программу, печатающую значение true, если указанное высказывание является истинным, и false – в противном случае
все цифры заданного четырехзначного числа N различны.

Составить программу печатающую значение true, если указанное высказывание верно, а false в противном случае:
1)Составить программу печатающую значение true, если указанное высказывание верно, а false в...

Составить программу печатающее значение true, если указанное высказывание является истинным и false если ложным
все цифры данного четырех значного числа N различны

5
0 / 0 / 1
Регистрация: 11.03.2014
Сообщений: 6
11.03.2014, 21:06 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
var a1,a2,a3,a4,a:integer;
begin
read(a);
a1:=a div 1000;
a:=a mod 1000;
a2:=a div 100;
a:=a mod 100;
a3:=a div 10;
a4:=a mod 10;
if (a1+a2+a3+a4)=(a1*a2*a3*a4+1)
then writeln('TRUE')
else writeln('FALSE');
end.
0
0 / 0 / 0
Регистрация: 11.03.2014
Сообщений: 20
11.03.2014, 21:34  [ТС] 3
А это правильным не будет?
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
var
i,j,k,l,s:integer;
 
Begin
for i:=1 to 4 do
 for j:=1 to 4 do
  for k:=1 to 4 do
   for l:=1 to 4 do
  if i+j+k+l-i*j*k*l=1 then
  begin
  s:=1000*i+100*j+10*k+l;
  Writeln(s);
  end;
 
Readln;
end.
0
0 / 0 / 1
Регистрация: 11.03.2014
Сообщений: 6
11.03.2014, 21:36 4
DamiRik,
А от моего чем-то отличается разве? Это почти тот же код, что и в Установить, что сумма первых цифр заданного четырехзначного числа N равна произведению двух последних
Только немного переписанный.
0
0 / 0 / 0
Регистрация: 11.03.2014
Сообщений: 20
11.03.2014, 21:37  [ТС] 5
Спасибо. Я только Паскаль начал изучать, а задачек кучу напихали.
0
Модератор
8685 / 4339 / 2979
Регистрация: 17.08.2012
Сообщений: 13,808
12.03.2014, 02:34 6
Цитата Сообщение от YaKr3v3tko Посмотреть сообщение
Pascal
1
2
3
if (a1+a2+a3+a4)=(a1*a2*a3*a4+1)
then writeln('TRUE')
else writeln('FALSE');
можно заменить на
Pascal
1
writeln((a1+a2+a3+a4)=(a1*a2*a3*a4+1));
Добавлено через 1 минуту
Цитата Сообщение от DamiRik Посмотреть сообщение
А это правильным не будет?
Не будет.
Цитата Сообщение от DamiRik Посмотреть сообщение
заданного четырехзначного числа N
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
12.03.2014, 02:34

Напечатать True, если заданный файл вещественных упорядочен, и False-в противном случае
Напечатать True, если заданный файл вещественных упорядочен, и False-в противном случае.

Функция возвращает true, если число n - натуральное степень числа 2 и false в противном случае
Функция возвращает true, если число n - натуральное степень числа 2 и false в противном случае

Имеется два квадратных уравнения. Вычислить значение логической переменной t:boolean. True - имеют корни, false - в противном случае
Имеется два квадратных уравнения x2+6.2x+a2=0 и x2+ax+b-1=0. Вычислить значение логической...

Составить линейную программу,печатающую значение true , если указанное высказывание является истинным,и false в противном случае
Составить линейную программу,печатающую значение true , если указанное высказывание является...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru