Кондратий при виде семёрок начинает нервно втягивать воздух, а при виде чисел, которые делятся на семь, начинает яростно выдыхать воздух. Чтобы Кондратию не стало совсем плохо, надо оградить его от чисел, в которых есть семёрки, или которые делятся на 7. Если число одновременно и делится на 7, и содержит семёрку, то Кондратий будет нервно-яростно пыхтеть, но это лучше, чем гнать воздух только в одну сторону, так что его жизни ничего не угрожает, и такие числа можно оставить. Формат входных данных Программа получает на вход целое число в пределах от 1 до 100000. Формат выходных данных Программа выводит 'DANGER', если одна из цифр числа - семёрка, либо если число делится на 7. Во всех остальных случаях, а также если выполняются оба условия одновременно, программа выводит 'OKAY'. For example: Input Result 12347 DANGER 12376 OKAY

Summa1. Анализ

1. Задаются переменные s, i с целыми числовыми значениями.
2. Начало кода
3. Переменной s присваивается значение 0.
4. Цикл. Условие: при значении i от 1 до 5. Действие: присвоить переменной s значение, увеличенное на i.
5. Вывод значения переменной s.
6. Конец кода

Summa2. Анализ

1. Задаются переменные s, i с целыми числовыми значениями.
2. Начало кода
3. Переменной s присваивается значение 0, переменной i - значение 1.
4. Цикл. Условие: до тех пор, пока i меньше или равно 5. Действие: увеличить значение переменной s на і, значение переменной і - на 1.
5. Вывод значения переменной s.
6. Конец кода

Summa3. Анализ

1. Задаются переменные s, i с целыми числовыми значениями.
2. Начало кода
3. Переменной s присваивается значение 0, переменной i - значение 1.
4. Цикл. Условие: пока i не станет больше 5. Действие: увеличить значение переменной s на і, значение і - на 1.
5. Вывод значения переменной s.
6. Конец кода

Первая программа.

Program d_and_e;

Var
   a,b,sum_d,sum_e:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второеое число: ');
  ReadLn(b);
  sum_d:=(a div 10) + (b div 10);
  sum_e:=(a mod 10) + (b mod 10);
  WriteLn('сумма десятков чисел: ', sum_d);
  WriteLn('сумма единиц чисел: ', sum_e);
end.

Вторая программа.

Program d_and_e;

Var
   a,b,mult_d1_e2,mult_e1_d2:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второе число: ');
  ReadLn(b);
  mult_d1_e2:=(a div 10) * (b mod 10);
  mult_e1_d2:=(a mod 10) * (b div 10);
  WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
  WriteLn('произведение единиц 1-го и десятков 2-го числа: ', mult_e1_d2);
end.

Третья программа.

Program d_and_e;

Var
   a,b,mult_d1_e2,sum_e1_d2:integer;

Begin
  WriteLn('введите первое число: ');
  ReadLn(a);
  WriteLn('введите второе число: ');
  ReadLn(b);
  mult_d1_e2:=(a div 10) * (b mod 10);
  sum_e1_d2:=(a mod 10) + (b div 10);
  WriteLn('произведение десятков 1-го и единиц 2-го числа: ', mult_d1_e2);
  WriteLn('сумма единиц 1-го и десятков 2-го числа: ', sum_e1_d2);
end.