Как сосчитать сумму всех двухзначных чисел ?

74 !!!!!!!
74 * 11 = 814
(11= 7+4 )

сломал мозг

Простая прогрессия, (1+100)*50 =5050
тоесть 1+100 и таких пар у нас 50 ( 2+99 , 3+98 и т.д )

77

9x11=99 - 9+9=18

Какая печаль...

Program Summax3;
Uses Crt;

Var Counter : Integer;
Var Sum : Integer;

Begin
For Counter := 1 to 30 do
  Begin
    If Counter mod 3 = 0  then
     Begin
       Sum := Sum + Counter;
     End;
  End;
Writeln(Sum);
Readln;
End.

писал пока не видел ответ слона, да и никогда в паскале не писал программы :D
но думаю вроде всё правильно, пара минут =/ (но это понятно что вы только начали учить, и всётаки)
P.S. да в IF Begin-end не надо, но это так, для уверенности))

А калькулятор в  руки взять слабо ? 5050

иногда эту сумму чисел считаю, иногда нет :) когда ситала, а это было не часто, попадалось то ли 20, то ли 22...число 21 редко выпадало :)

16 и 14

500500 походу