Question

ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАЧЕЙ ПО ПАСКАЛЮ!
- Найти сумму кубов тех двузначных чисел, первая цифра которых четная, а вторая равна 1. (должен быть цикл for)

Answer 1

Var S,i:integer;
Begin
S:=0;
For i:= 21 to 81 do
    if ((i div 10) mod 2 = 0 )and(i mod 10 = 1) then S:=S+i*i*i;
Write('S = ',S);
End.