Введение в программирование. Pascal и Delphi. Гурьянов Л.В - 48 стр.

  program exam2_10;
  var
    s, i, k, n, p: integer;
  begin
    p:= 1;
    k:= 1;
    n:= 1;
    for i:=1 to 4 do begin
     s:=0;
     while k<=n do begin
        s:= s+k;
        k:= k+1;
     end;
     n:=i+k;
     p:=p*s;
    end;
    writeln(p);
end.

   2.5.3. Программирование с использованием управляющих
          структур
   Напишите программу, которая осуществляет обработку информа-
ции по одному из условий, заданных ниже.
   1. Присвоить переменной К значение 1, если два числа из трех
чисел x, y, z являются положительными и кратными 3, и значение 0 –
в противном случае.
   2. Найти наибольшее из трех чисел x, y, z.
   3. Присвоить переменной К значение true, если точка с координа-
тами x, y принадлежит заданной области, и значение false – в про-
тивном случае (рисунок 2.9).
   4. Дано натуральное число N. Определить:
   a) сколько цифр 5 и 8 входит в это число,
   b) произведение цифр заданного натурального числа,

                               47