Сколько троек чисел x, y, z от 1 до 100 удовлетворяют условию "x + y + z делится на 17"? будем считать тройки, получаемые перестановкой чисел, различными. например, (1, 2, 3) и (2, 1, 3) — это разные тройки

Var
   x,y,z:byte;
   k:integer;
Begin
k:=0;
For x:= 1 to 100 do
    For y:= 1 to 100 do
        For z:= 1 to 100 do
            if (x+y+z) mod 17 = 0 then k:=k+1;
WriteLn('k = ',k);
End.

k = 58823

 

 

 

 

1) 

 Program chetnost;

 Uses Crt

 const  arr: array[1..9] of integer=(8,5,3,7,4,1,22,34,15); {Наши числа от 1 до 9 }

                                                                                                   {туда напишешь любые целые}

                                                                                                    {которые препод укажет}

var i,sum:integer;

 

begin

     clrscr;

 

      sum:=0; 

     for i:=1 to 9 do sum:=sum+arr[i];

       if (sum mod 2) =0 then writeln('Их сумма чётное число ')

                    else  writeln('Их сумма нечётное число ') 

   

 

 end.

 

 

 2) Program Nabor;

 Uses Crt

 const  n1: array[1..8] of integer=(89,57,31,789,43,10,22,34); {стоимость товаров 1 набора }

 const  n2: array[1..8] of integer=(890,51,31,79,43,10,2,31); {стоимость товаров 2 набора } 

 

                                                                                                         {туда напишешь любые  целые}

                                                                                                         {которые препод укажет}

 var sum1,sum2,i: integer;

begin

     clrscr;

     sum1:=0; sum2:=0;

for i:=1 to 8 do

       begin

            sum1:=sum1+n1[i];

             sum2:=sum2+n2[i]

 

       end;

     

if (sum1=sum2)  writeln('Стоимость наборов одинакова '); 

if (sum1<sum2)  then writeln('Первый набор дешевле ')

                    else  writeln(' Второй набор дешевле  ') 

 

 end.

if8                                                  

program raf105;

uses robot;

var l,d,r,u: boolean;

begin

task('if8');

l:= wallfromleft;

d:= wallfromdown;

r:= wallfromright;

u:= wallfromup;

if l

 then begin right; paint; right; paint;

   if freefromright

     then begin right; paint; end

   end;

if d

 then begin up; paint; up; paint;

   if freefromup

     then begin up; paint; end

   end;

if r

 then begin left; paint; left; paint;

   if freefromleft

     then begin left; paint; end

   end;

if u

 then begin down; paint; down; paint;

   if freefromdown

     then begin down; paint; end

   end;

end.

if9                                                  

program raf105;

uses robot;

var l,r: boolean;

begin

task('if9');

right; r:= wallfromdown;

left;

left; l:= wallfromup;

right;

if r and l

 then begin up; paint; down; down; paint; up; end

 else paint;

end.

if10                                                

program raf105;

uses robot;

var l,r: boolean;

begin

task('if10');

right; r:= cellispainted;

left;

left; l:= cellispainted;

right;

if r or l

 then begin up; paint; end

 else paint;

end.