повторение

 

Шаблон

 var i, pr :integer;

pr:=1;

pr:=0;

• конструкция ветвление :

if        Then команда, если условие верно

                     else команда, если условие неверно

•  циклы
• if a mod 2 = 0 проверка на четность
• if a mod 7 = 0 проверка на кратность числу 7
• if a mod 2 = 1 проверка на нечетность числа
• 
  

if ( a mod 5 = 0 )  and  ( a mod 9 = 0   ) проверка число кратно 5 и кратно 9

if ( a mod 2 = 0 )  and  ( a mod 34 = 0   )

for i:=1 to 100 do if i mod 2 = 1 then

for i:=1 to 100 do if i mod 2 = 01 then

 pr:=pr+i;

writeln('сумма = ',pr);

end.

begin

var a, b, c :real;

read(a, b);

read(c);

   y :real ;

                  

  end.

• 
  

for  x:= 2 to 17 do  begin   end ;

  Y:=(X+2*X)/7;

  writeln('x = ',x, 'y = ',y);