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

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

13.12.2009, 17:08. Просмотров 1904. Ответов 2
Метки нет (Все метки)

все цифры заданного четырехзначного числа N различны.
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
13.12.2009, 17:08
Ответы с готовыми решениями:

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

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

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

Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае
Помогите пожалуйста решить задачу! Сумма двух первых цифр заданного четырехзначного числа равна...

2
67 / 67 / 24
Регистрация: 21.11.2008
Сообщений: 226
13.12.2009, 17:41 2
Лучший ответ Сообщение было отмечено Knives как решение

Решение

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
34
35
36
var N:integer;
    i,j:integer;
    Mas:array[1..4] of byte;
begin
   write('Enter N:');
   readln(N);
   for i:=1 to 4 do
    begin
     Mas[i]:=N mod 10;
      if Mas[i] = 0  then
       begin
         writeln('Error!')
         readln;
         exit;
       end;
     N:=N div 10;
    end;
 
    if N mod 10 <>0 then
     begin
         writeln('Error!')
         readln;
         exit;
       end;
    for i:=1 to 4 do
     for j:=1 to 4 do
      if (Mas[i]=Mas[j]) and (i<>j) then
       begin
         writeln('false');
         readln;
         exit;
       end;
 
   writeln('true');
   readln;
end.
0
0 / 0 / 0
Регистрация: 13.12.2009
Сообщений: 9
13.12.2009, 21:31  [ТС] 3
Спасибо.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
13.12.2009, 21:31

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

Составить программу, печатающую значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае
Помогите пожалуйста решить задачу! Квадрат заданного трехзначного числа равен кубу суммы цифр...

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

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

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

Составить программу,печатающию значение TRUE, если указанное высказывание является истинным, и FALSE в противном случае: треугольник со сторонами a,b
Cоставить программу,печатающую значение true, если указанное высказывание является истинным, и...

Составить программу,печатующую значение TRUE ,если указанное высказывание ,является истиным и FALSE в противном случае:
сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр!


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

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

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