Форум программистов, компьютерный форум, киберфорум
PascalABC.NET
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.79/86: Рейтинг темы: голосов - 86, средняя оценка - 4.79
0 / 0 / 0
Регистрация: 21.02.2013
Сообщений: 13
1

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

21.02.2013, 18:22. Показов 17144. Ответов 2
Метки нет (Все метки)

Помогите пожалуйста решить задачу!

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

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

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

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

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

2
59 / 59 / 53
Регистрация: 17.02.2013
Сообщений: 242
21.02.2013, 19:52 2
Лучший ответ Сообщение было отмечено Петр1234 как решение

Решение

Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
program num;
uses crt;
var a:array[1..4] of integer;
i:byte;
f:boolean;
begin
clrscr;
for i:=1 to 4 do
  begin
    write('Введите ',i,' цифру четырёхзначного числа: ');
    readln(a[i]);
  end;
if (a[1]+a[2])=(a[3]+a[4]) then
  f:=true
else
  f:=false;
writeln('Сумма двух первых цифр заданного четырехзначного числа равна сумме двух его последних цифр. Это высказывание 'f);
readln;
end.
как вариант.
0
3024 / 1910 / 1649
Регистрация: 30.04.2011
Сообщений: 3,060
21.02.2013, 20:39 3
Pascal
1
2
3
4
5
6
7
8
9
Var
  n: Integer;
BEGIN
Repeat
 Write('Введите четырехзначное число: ');
 Readln(n);
until (1000<=n) and (n<=9999);
Writeln(n div 1000 mod 10+n div 100 mod 10=n div 10 mod 10+n mod 10)
END.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
21.02.2013, 20:39

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

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

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

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


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

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

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