0 / 0 / 0
Регистрация: 29.03.2016
Сообщений: 2
1

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

29.03.2016, 15:19. Показов 4553. Ответов 3
Метки нет (Все метки)

Студворк — интернет-сервис помощи студентам
Заданы два натуральных числа. Определить, являются ли среднее арифметическое этих чисел целым числом
ЧЕРЕЗ ОПЕРАТОР CASE
0
Лучшие ответы (1)
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
29.03.2016, 15:19
Ответы с готовыми решениями:

Даны два натуральных числа P и Q, определить, являются ли они взаимно простыми
вообщем 1. даны два натуральных числа P и Q и надо определить, являются ли они взаимно простыми(те...

Сформировать типизированный файл, содержащие действительные числа. Вычислить среднее арифметическое этих чисел
Сформировать типизированный файл ,содержащие действительные числа.Вычислить среднее арифметическое...

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

Даны два действительных числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей этих чисел
Даны два действительных числа. Найти среднее арифметическое кубов этих чисел и среднее...

3
Hello Kitty
690 / 562 / 402
Регистрация: 12.02.2016
Сообщений: 1,436
Записей в блоге: 1
29.03.2016, 16:50 2
Pascal
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
// Перед вами - WEB-среда разработки PascalABC.NET. 
// Она основана на современном языке PascalABC.NET, совместимом с Delphi Object Pascal.  
// Программа запускается на сервере, ввод-вывод передается по сети.
// Программу можно опубликовать и ссылаться на нее в Интернете в виде
// [url]http://pascalabc.net/WDE/?file=имя_опубликованного_файла.pas[/url]
// Зарегистрированные пользователи получают дополнительные возможности:
// долговременное хранение своих программ, возможность работы с папками 
 
var N1,N2: Cardinal;
 
begin
 
  N1 := 10;
  N2 := 12;
  
  case (N1 + N2) mod 2 of
    0: writeln('True');
    1: writeln('False');
  end;
 
end.
0
0 / 0 / 0
Регистрация: 29.03.2016
Сообщений: 2
29.03.2016, 19:11  [ТС] 3
Спасибо,но откуда взялись 10 и 12 числа?) как можно без конкретных чисел?))
0
5059 / 2633 / 2346
Регистрация: 10.12.2014
Сообщений: 9,996
31.03.2016, 05:56 4
Лучший ответ Сообщение было отмечено Памирыч как решение

Решение

Цитата Сообщение от маринка20 Посмотреть сообщение
как можно без конкретных чисел?
Используйте оператор Read…

WhiteMind, а ведь можно было использовать odd…
Pascal
1
2
3
4
5
6
7
8
begin
  var a := ReadLnInteger('a =');
  var b := ReadLnInteger('b =');
  case odd(a) = odd(b) of
    true  : WriteLn('Да');
    false : WriteLn('Нет');
  end;
end.
… и не считать сумму ;–)
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
31.03.2016, 05:56
Помогаю со студенческими работами здесь

Даны два числа. Найти среднее арифметическое кубов этих чисел и среднее геометрическое модулей эти чисел
Заранее спасибо.

Даны два целых числа: найти среднее арифметическое этих чисел и среднее геометрическое их модулей
Даны два целых числа. Найти среднее арифметическое этих чисел и среднее геометрическое их модулей.

Даны два действительных положительных числа. Найти среднее арифметическое и среднее геометрическое этих чисел
Даны два действительных положительных числа. Найти среднее арифметическое и среднее геометрическое...

Рассматривая слова как числа, определить среднее арифметическое цифр этих чисел
Дана символьная строка, содержащая цифры от 0 до 9, объединеные в слова, разделенные между собой...


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

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

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