отыскать сумму квадратов четных и творений кубов не четных чисел,первых двух

Отыскать сумму квадратов четных и творений кубов не четных чисел,первых 2-ух 10-ов

Задать свой вопрос
Скоблилина Вероника
Программка обязана возвращать два отдавать два значения: сумму квадратов чётных и творенье кубов нечётных?
1 ответ
Var
 s1,i:integer;
 ir,s2:real;
begin
s2:=1;
 for i:=1 to 20 do
  begin;
   ir:=i;
   if i mod 2=0 then s1+=sqr(i) else s2*=power(ir,3);
  end;
writeln('Cумма квадратов чётных=',s1);
writeln('Творенье кубов нечётных=',s2);
end.
, оставишь ответ?
Имя:*
E-Mail:


Добро пожаловать!

Для того чтобы стать полноценным пользователем нашего портала, вам необходимо пройти регистрацию.
Зарегистрироваться
Создайте собственную учетную запить!

Пройти регистрацию
Авторизоваться
Уже зарегистрированны? А ну-ка живо авторизуйтесь!

Войти на сайт