Решить в паскале. для четырех произвольных чмсел, введеных с клавиатуры, выведите на экран соответствующие результаты.если все числа не превышают 30, то выведите их удвоенное произведение.если последнее число четно, то выведите произведение первых двух чисел, уменьшенное в 10 раз.если выполняются одновременно два перечисленных выше условия, то выведите эти числа без изменения.иначе, выведите разность первого и последнего чисел.составьте соответствующие отладочные примеры и проверьте работу каждой програмы.

var

  a, b, c, d : integer;

begin

  read (a, b, c, d);

  if   (a < = 30) and (b < = 30) and (c < = 30) and (d < = 30) and (d mod 2 = 0) then

    write (a, ' ', b, ' ', c, ' ', d)

  else if (a < = 30) and (b < = 30) and (c < = 30) and (d < = 30) then

    write (2 * a * b * c * d)

  else if d mod 2 = 0 then

    write (a * b / 10)

  else write (a - d);

end.

#include "math.h" #include  < stdlib.h> #include "stdio.h" #include "conio.h" #include < iostream> using namespace std; int main() {       using namespace std;       int n;       int count = 0;       setlocale(lc_all, "russian");       cout < < "введите n : "; cin > > n;       for (int i = 0; i < = n; i++)       {             if (i % 5 == 0 & & i! =0)       count++;       }       cout < < "натуральных чисел,кратных 5-ти в данном ряду : "< < count;       cout < < endl;       _getch(); }

Насколько я помню,операторы div и mod - операторы деления.mod - возвращает остаток от деления,а div - наоборот,целую часть.алгоритм прост в данном случае: пусть число abcd - заданное пользователем число.тогда первая цифра будет равна : a = abcd div 1000 //a - число тысяч вторая : b = (abcd - (a*1000)) div 100 //b - число сотен третья : c = (abcd - (a*1000 + b*100)) div 10 // c - число десятков четвертая : d = abcd mod 10 // d - остаток от деления,в данном случае число единиц. остается только вывести a,b,c и d через пробел на экран.