Отправляет email-рассылки с помощью сервиса Sendsay

RFpro.ru: Консультации по информатике

Подписаться Бесплатная «Серебряная» новостная рассылка . Подписчиков 293 RSS
←   Январь 2012   →
 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


За последние 60 дней ни разу не выходила


Сайт рассылки: http://rusfaq.ru/issues/8/19/228
Открыта: 17-04-2009

Автор
Калашников О.А.

Статистика

293 подписчиков
0 за неделю
←   Все выпуски   →

RFpro.ru: Консультации по информатике


Хостинг портала RFpro.ru:
Московский хостер
Профессиональный ХОСТИНГ на базе Linux x64 и Windows x64

РАССЫЛКИ ПОРТАЛА RFPRO.RU

Лучшие эксперты по данной тематике

Роман Селиверстов
Статус: Советник
Рейтинг: 4286
∙ повысить рейтинг » 		Коцюрбенко Алексей aka Жерар
Статус: Профессор
Рейтинг: 3700
∙ повысить рейтинг » 		CradleA
Статус: Бакалавр
Рейтинг: 2588
∙ повысить рейтинг »

/ НАУКА И ОБРАЗОВАНИЕ / Точные и естественные науки / Информатика

Номер выпуска:237
Дата выхода:18.01.2012, 16:30
Администратор рассылки:lamed (Академик)
Подписчиков / экспертов:108 / 117
Вопросов / ответов:0 / 0

Статья отправлена lamed (Академик)
дата отправки: 17.01.2012, 19:50

Решения к задачнику М.Э.Абрамяна. Выпуск 2

Добрый день, уважаемые читатели. Продолжаем выкладывать решения задач к популярному задачнику М. Э. Абрамяна. 1000 ЗАДАЧ ПО ПРОГРАММИРОВАНИЮ, Ростов-на-Дону 2004. Решения задач Boolean1..10 можно посмотреть здесь: Boolean1-10

Источники заданий
1. Часть I
2. Часть II
3. Часть III

Нумерация заданий соответствует приведенной в файлах. Всю ответственность за допущенные в решениях ошибки несет автор решений: lamed.
С вопросами и пожеланиями обращайтесь в личную почту lamed@rfpro.ru.
Удачи!

Boolean11. Даны два целых числа: A, B. Проверить истинность высказывания: «Числа A и B имеют одинаковую четность».
Код :
var
  A,B: integer;
begin
  readln(A,B);
  writeln(odd(A)=odd(B));
  readln;
end.

Boolean12. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Каждое из чисел A, B, C положительное»
Код :
var
  A,B,C: integer;
begin
  readln(A,B,C);
  writeln((A>0) and (B>0) and (C>0));
  readln;
end.

Boolean13. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Хотя бы одно из чисел A, B, C положительное».
Код :
var
  A,B,C: integer;
begin
  readln(A,B,C);
  writeln((A>0) or (B>0) or (C>0));
  readln;
End.

Boolean14. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Ровно одно из чисел A, B, C положительное».
Код :
var
  A,B,C: integer;
begin
  readln(A,B,C);
  writeln(
    (A>0) and (B<=0) and (C<=0) or 
    (A<=0) and (B>0) and (C<=0) or
    (A<=0) and (B<=0) and (C>0));
  readln;
End.

Boolean15. Даны три целых числа: A, B, C. Проверить истинность высказывания: «Ровно два из чисел A, B, C являются положительными».
Код :
var
  A,B,C: integer;
begin
  readln(A,B,C);
  writeln(
    (A>0) and (B>0) and (C<=0) or
    (A>0) and (C>0) and (B<=0) or 
    (B>0) and (C>0) and (A<=0));
  readln;    
End.

Boolean16. Дано целое положительное число.
Проверить истинность высказывания: «Данное число является четным двузначным».
Код :
var
  A: integer;
begin
  readln(A);
  writeln((A>=10) and (A<=99) and not odd(A));
  readln;
end.

Boolean17. Дано целое положительное число.
Проверить истинность высказывания: «Данное число является нечетным трехзначным».
Код :
var
  A: integer;
begin
  readln(A);
  writeln((A>=100) and (A<=999) and odd(A));
  readln;
End.

Boolean18. Проверить истинность высказывания: «Среди трех данных целых
чисел есть хотя бы одна пара совпадающих».
Код :
var
  A,B,C: integer;
begin
  readln(A,B,C);
  writeln((A=B) or (B=C) or(A=C));
  readln;
end.

Boolean19. Проверить истинность высказывания: «Среди трех данных целых
чисел есть хотя бы одна пара взаимно противоположных».
Код :
var
  A,B,C: integer;
begin
  readln(A,B,C);
  writeln((A=-B) or (B=-C) or (A=-C));
  readln;
end.

Boolean20. Дано трехзначное число. Проверить истинность высказывания:
«Все цифры данного числа различны».
Код :
var
  A: integer;
  c1,c2,c3: integer;
  ost: integer;
begin
  readln(A);
  c1 := A mod 10;
  ost := A div 10;
  c2 := ost mod 10;
  c3 := ost div 10;
  
  writeln((c1<>c2) and (c2<>c3) and (c1<>c3));
  readln;
end.

Оценить выпуск | Задать вопрос экспертам

главная страница  |  стать участником  |  получить консультацию
техническая поддержка  |  восстановить логин/пароль

Дорогой читатель!
Команда портала RFPRO.RU благодарит Вас за то, что Вы пользуетесь нашими услугами. Вы только что прочли очередной выпуск рассылки. Мы старались. Пожалуйста, оцените его. Если совет помог Вам, если Вам понравился ответ, Вы можете поблагодарить автора - для этого в каждом ответе есть специальные ссылки. Вы можете оставить отзыв о работе портале. Нам очень важно знать Ваше мнение. Вы можете поближе познакомиться с жизнью портала, посетив наш форум, почитав журнал, который издают наши эксперты. Если у Вас есть желание помочь людям, поделиться своими знаниями, Вы можете зарегистрироваться экспертом. Заходите - у нас интересно!
МЫ РАБОТАЕМ ДЛЯ ВАС!

© 2001-2012, Портал RFPRO.RU, Россия
Авторское право: ООО "Мастер-Эксперт Про"
Калашников О.А. | Гладенюк А.Г.
Хостинг: Компания "Московский хостер"
Версия системы: 2011.6.34 от 12.01.2012
В избранное