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

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.

Если ответ по предмету Информатика отсутствует или он оказался неправильным, то попробуй воспользоваться поиском других ответов во всей базе сайта.