Question

1) вывести на экран все трехзначные числа кратные 50 2) найти сумму нечетных чисел от 100 до 150 на паскале

Answer 1

VAR  
   k: LongInt;
BEGIN  
   k := 50; 
   While (k < 1000) do begin  
      k := k + 50; Write(k, ' ');
   End;
END.

VAR  
   sum, k: LongInt;
BEGIN  
   k := 101; sum := 0;  
   While (k < 150) do begin      
      sum := sum + k;  
      k := k + 2;  
   End; 

   Writeln(sum);
END.

Answer 2

Var   
k: LongInt;
Begin
k := 50; 
While (k < 1000) do begin  
k := k + 50; Write(k, ' ');
End;
End.

Var   
sum, k: LongInt;
Begin  
k := 101; sum := 0;   
While (k < 150) do begin      
sum := sum + k;  
k := k + 2;   
End; 
Writeln(sum);
End.