ПОМОГИТЕ ПОЖАЛУЙСТА С ЗАДАЧЕЙ ПО ПАСКАЛЮ!
- Найти сумму кубов тех двузначных чисел, первая цифра которых четная, а вторая равна 1. (должен быть цикл for)
Ответы
Ответ дал:
0
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.
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.
Вас заинтересует
1 год назад
1 год назад
5 лет назад
5 лет назад
8 лет назад
8 лет назад
9 лет назад