С клавиатуры вводятся 3 целых числа a, b, c. Составить программу

@Gangast · Регистрация: 20.11.2013

Author24 — интернет-сервис помощи студентам

Есть ли среди них число 25?
Лежат ли эти числа в диапазоне от 3 до 15?
Найти сумму для тех, которые нечетны
Является ли число а делителем числа b

@ildwine · 20.11.2013, 13:39

Pascal

var
  a, b, c, s : integer;
begin
  write('введите a, b, c: ');
  readln(a, b, c);
  if a = 25 then writeln('a = 25');
  if b = 25 then writeln('b = 25');
  if c = 25 then writeln('c = 25');
  if (a in [3..15]) then writeln('a принадлежит диапазону [3..15]');
  if (b in [3..15]) then writeln('b принадлежит диапазону [3..15]');
  if (c in [3..15]) then writeln('c принадлежит диапазону [3..15]');    
  s := 0;
  if (a mod 2 <> 0) then s := s + a;
  if (b mod 2 <> 0) then s := s + b;
  if (c mod 2 <> 0) then s := s + c;
  writeln('сумма нечетных: ', s);
  if b mod a = 0 then writeln('является делителем') else
    writeln('НЕ является делителем');
  readln
end.

@Gangast 0 / 0 / 0 Регистрация: 20.11.2013 Сообщений: 16
		1
	С клавиатуры вводятся 3 целых числа a, b, c. Составить программу 20.11.2013, 13:03. Показов 9208. Ответов 1 Метки нет (Все метки) Есть ли среди них число 25? Лежат ли эти числа в диапазоне от 3 до 15? Найти сумму для тех, которые нечетны Является ли число а делителем числа b 0

	20.11.2013, 13:39

С клавиатуры вводятся 3 целых числа a, b, c. Составить программу

Решение