Предмет: Информатика,
автор: chapiginagala
Пожалуйста помогите!
Написать программу на Паскале, вычисления суммы S квадратов четных и кубов нечетных чисел от 1 до N. Проверку числа на четность осуществить с помощью встроенной функции ODD.
Ответы
Автор ответа:
4
const
n = 3;
var
s,i : integer;
begin
for i := 1 to n do
if odd(i) then
s := s + i * i * i
else
s := s + i * i;
writeln (s);
end.
n = 3;
var
s,i : integer;
begin
for i := 1 to n do
if odd(i) then
s := s + i * i * i
else
s := s + i * i;
writeln (s);
end.
Интересные вопросы
Предмет: Русский язык,
автор: BabyDoll85
Предмет: Английский язык,
автор: вася797
Предмет: Қазақ тiлi,
автор: Аноним
Предмет: Математика,
автор: Ljlgkfkovfjfcsvjlbv
Предмет: Другие предметы,
автор: sashashtabaaa