Question

Помогите ПОЖАЛУЙСТА очень очень срочно 1) Даны целые числа a, b, c, d. Сколько среди них отрицательных и оканчивающихся на 7. 2) Даны целые числа a, b, c, d. Найдите сумму тех из них, которые кратны 4, больше -50 и не превышают 70. 3) Даны целые числа a, b, c, d. Найдите сумму тех из них, которые кратны 4 и по модулю не превышают 100. Паскаль

Answer 1

// PascalABC.NET 3.2, сборка 1417 от 28.03.2017
// Внимание! Если программа не работает, обновите версию!

begin
  Writeln('k=',
    ReadSeqInteger('a,b,c,d=',4).Where(x->(x<0) and (-x mod 10=7)).Count);
  Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
      Where(x->(x>-50) and (x <=70) and (x mod 4=0)).Sum);
  Writeln('S=',ReadSeqInteger('a,b,c,d=',4).
      Where(x->(abs(x)<=100) and (x mod 4=0)).Sum)
end.

Каждый оператор Writeln решает одну из задач.
Если надо все отдельно - просто удаляйте два остальных оператора.

Answer 2

Задача 1: Подсчет отрицательных чисел, оканчивающихся на 7

Для решения этой задачи, нам необходимо проверить каждое из четырех данных целых чисел (a, b, c, d) и определить, является ли каждое из них отрицательным и оканчивающимся на 7. Затем мы будем подсчитывать количество чисел, удовлетворяющих этим условиям.

Вот алгоритм решения задачи:

1. Инициализируйте две переменные: `count_negative` и `count_ending_with_7` с начальным значением 0. 2. Проверьте каждое из чисел (a, b, c, d): - Если число отрицательное, увеличьте значение `count_negative` на 1. - Если число оканчивается на 7, увеличьте значение `count_ending_with_7` на 1. 3. Выведите значения `count_negative` и `count_ending_with_7`.

Вот пример кода на языке Паскаль, решающий эту задачу:

Program CountNegativeAndEndingWith7;

var
  a, b, c, d, count_negative, count_ending_with_7: integer;

begin
  count_negative := 0;
  count_ending_with_7 := 0;

writeln('Введите числа a, b, c, d:');
  readln(a, b, c, d);

if a < 0 then
    count_negative := count_negative + 1;
  if b < 0 then
    count_negative := count_negative + 1;
  if c < 0 then
    count_negative := count_negative + 1;
  if d < 0 then
    count_negative := count_negative + 1;

if a mod 10 = 7 then
    count_ending_with_7 := count_ending_with_7 + 1;
  if b mod 10 = 7 then
    count_ending_with_7 := count_ending_with_7 + 1;
  if c mod 10 = 7 then
    count_ending_with_7 := count_ending_with_7 + 1;
  if d mod 10 = 7 then
    count_ending_with_7 := count_ending_with_7 + 1;

writeln('Количество отрицательных чисел: ', count_negative);
  writeln('Количество чисел, оканчивающихся на 7: ', count_ending_with_7);
end.

При запуске программы, она запросит ввод четырех целых чисел (a, b, c, d) и выведет количество отрицательных чисел и количество чисел, оканчивающихся на 7.

Задача 2: Подсчет суммы чисел, кратных 4, больших -50 и не превышающих 70

Для решения этой задачи, нам необходимо проверить каждое из четырех данных целых чисел (a, b, c, d) и определить, является ли каждое из них числом, кратным 4, большим -50 и не превышающим 70. Затем мы будем подсчитывать сумму чисел, удовлетворяющих этим условиям.

Вот алгоритм решения задачи:

1. Инициализируйте переменную `sum` с начальным значением 0. 2. Проверьте каждое из чисел (a, b, c, d): - Если число кратно 4, больше -50 и не превышает 70, добавьте его к значению `sum`. 3. Выведите значение `sum`.

Вот пример кода на языке Паскаль, решающий эту задачу:

Program SumMultiplesOf4InRange;

var
  a, b, c, d, sum: integer;

begin
  sum := 0;

writeln('Введите числа a, b, c, d:');
  readln(a, b, c, d);

if (a mod 4 = 0) and (a > -50) and (a <= 70) then
    sum := sum + a;
  if (b mod 4 = 0) and (b > -50) and (b <= 70) then
    sum := sum + b;
  if (c mod 4 = 0) and (c > -50) and (c <= 70) then
    sum := sum + c;
  if (d mod 4 = 0) and (d > -50) and (d <= 70) then
    sum := sum + d;

writeln('Сумма чисел, кратных 4, больших -50 и не превышающих 70: ', sum);
end.

При запуске программы, она запросит ввод четырех целых чисел (a, b, c, d) и выведет сумму чисел, кратных 4, больших -50 и не превышающих 70.

Задача 3: Подсчет суммы чисел, кратных 4 и по модулю не превышающих 100

Для решения этой задачи, нам необходимо проверить каждое из четырех данных целых чисел (a, b, c, d) и определить, является ли каждое из них числом, кратным 4 и по модулю не превышающим 100. Затем мы будем подсчитывать сумму чисел, удовлетворяющих этим условиям.

Вот алгоритм решения задачи:

1. Инициализируйте переменную `sum` с начальным значением 0. 2. Проверьте каждое из чисел (a, b, c, d): - Если число кратно 4 и по модулю не превышает 100, добавьте его к значению `sum`. 3. Выведите значение `sum`.

Вот пример кода на языке Паскаль, решающий эту задачу:

Program SumMultiplesOf4Modulus100;

var
  a, b, c, d, sum: integer;

begin
  sum := 0;

writeln('Введите числа a, b, c, d:');
  readln(a, b, c, d);

if (a mod 4 = 0) and (abs(a) <= 100) then
    sum := sum + a;
  if (b mod 4 = 0) and (abs(b) <= 100) then
    sum := sum + b;
  if (c mod 4 = 0) and (abs(c) <= 100) then
    sum := sum + c;
  if (d mod 4 = 0) and (abs(d) <= 100) then
    sum := sum + d;

writeln('Сумма чисел, кратных 4 и по модулю не превышающих 100: ', sum);
end.

При запуске программы, она запросит ввод четырех целых чисел (a, b, c, d) и выведет сумму чисел, кратных 4 и по модулю не превышающих 100.