Question

Pascal ABC Операторы case of ; if then else ; for to do;
 Помогите написать программы..........................................................................................
................................................. которые находятся в файле

d09becfb2f32837011a3046a6bbe41bf.doc

Answer 1

Задача 1 
Var i,n,a,sum:integer;
Begin 
  Write('Введите n: '); readln(n);   
    for i:=1 to n do   
  if (i mod 2 = 0) then begin   
 a:=a+1;   
 sum:=sum+i;                           
                 end;   
Writeln('Кол-во четных чисел: ',a,' их сумма = ',sum);
End.

Задача 2 
Var i:integer;
Begin   
   for i:=100 to 999 do   
     if (i mod 2 = 0) then write(' ',i);
End.

Задача 3 
Var i,k,i1,i2,i3:integer;
Begin 
Write('Введите k: '); readln(k);   
   for i:=100 to 999 do begin   
i1:=i div 100;   
i2:=i mod 100; i2:=i2 div 10;   
i3:=i mod 10;   
      if (i1+i2+i3 = k) then write(' ',i);     
              end;
End.