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