Adolas
6 год назад
Пожалуйста посчитайте ПОЖАЛУЙСТА С ЗАДАЧЕЙ ПО ПАСКАЛЮ!- Найти сумму кубов тех двузначных чисел, первая цифра которых четная, а вторая равна 1. (должен быть цикл for)
ОТВЕТЫ
Holmes Gerald
Oct 24, 2020
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.
793
Смежные вопросы:
