Определите, что будет напечатано в результате работы следующего фрагмента программы:
begin   k:=5;   s:=2;   while k < 40 do begin     s:=s+k;     k:=k+2;   end;   write(s); end. 

Чему будет равно значение переменной s после выполнения фрагмента программы:
y:= 1; s:= 0;
while y<= 2 do begin s:= s+ y; y:=y+ 1 end;

Сколько раз будет выполнен цикл в следующем фрагменте:
BEGIN
x:=2;
while x < 8 do
x:=x+1 END.

Какое значение примет переменная х в результате выполнения следующих фрагментов программ?
x:=1;
while x<100 do begin
x:=x*2;
end;

// дан массив Q(15) , заполненный числами [0,100].Найдите количество чётных чисел и их сумму
Var Q    : array [1..15] of byte;
    i,n  : byte;
    s    : word;
begin
  randomize;
  for i:=1 to 15 do
    begin
      Q[i]:=random(101); //заполняем массив случайными числами
    end;
  for i:=1 to 15 do
    begin
      if (Q[i]mod 2=0) then //определяем четные чиcла
        begin
          n:=n+1;           //высчитываем их количество
          s:=s+Q[i];        //и сумму
        end;
    end;
writeln ('в данном массиве ',n,' четных чисел. Их сумма равна ',s)
end.

Первый и второй циклы можно объединить (я так делал для наглядности) 

1 задача на c++ :
#include <iostream>
using namespace std;
int main()
{   
    int a,b,c,f,e,g;
    cin >> a >> b>> c; 
    f = a / c;
    e = b / c;
    g = a * b - c * c * f * e;
    cout << f * e << " " << g;
    return 0;
}

2 задача на с++ :

#include <iostream>
using namespace std;
int main()
{
    int a,b,c;
    cin >> a;
    b = a%100;
    if (b>=1&&b<=99)
    {
        cout << a / 100 + 1;
    }
    else
    {
        cout << a / 100;
    }
    return 0;
}