Отправляет 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

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

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

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

Номер выпуска:235
Дата выхода:16.01.2012, 15:30
Администратор рассылки:lamed (Академик)
Подписчиков / экспертов:108 / 118
Вопросов / ответов:1 / 1

Статья отправлена lamed (Академик)
дата отправки: 15.01.2012, 15:22

Решения к задачнику М.Э.Абрамяна

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

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

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

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


Boolean2. Дано целое число A. Проверить истинность высказывания: «Число A является нечетным».
Код :
var
  A: integer;
begin
  readln(A);
  writeLn(odd(A));
  readln;
end.


Boolean3. Дано целое число A. Проверить истинность высказывания: «Число A является четным».
Код :
var
  A: integer;
begin
  readln(A);
  writeln(a mod 2=0);
  readln;
end.


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


Boolean5. Даны два целых числа: A, B. Проверить истинность высказывания: «Справедливы неравенства A >= 0 или B < -2».
Код :
var
  A,B: real;
begin
  readln(A,B);
  writeln((A >= 0) or (B < -2));
  readln;
end.


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


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


Boolean8. Даны два целых числа: A, B. Проверить истинность высказывания: «Каждое из чисел A и B нечетное».
Код :
var
 A,B: integer;
Begin
  readln(A,B);
  writeln(odd(A) and odd(B));
  readln;
End.


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


Boolean10. Даны два целых числа: A, B.
Проверить истинность высказывания: «Ровно одно из чисел A и B нечетное».
Код :
var
 A,B: integer;
begin
  readln(A,B);
  writeln(a mod 2 <> b mod 2);
  readln;
end.

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

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

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

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