• Предмет: Информатика
  • Автор: gainutdinovrrr
  • Вопрос задан 3 года назад

помогите с паскалем пожалуйста, даю 70 баллов
Нужно составить программы​

Приложения:

Ответы

Ответ дал: LRSM
1

Задание 1:

  • var sum:integer;
  • begin
  • for var i := 5 to 35 do
  • if i mod 2 = 1 then sum := sum + sqr(i);
  • write(sum);
  • end.

Задание 2:

  • var  p: BigInteger = 1;
  • begin
  • for var i := 14 to 42 do
  • if i mod 2 = 0 then p := p * sqr(i);
  • write(p);
  • end.

Пример работ:

Приложения:

gainutdinovrrr: спасибо большое !!
Вас заинтересует