помогите с паскалем пожалуйста, даю 70 баллов Нужно составить программы. Created by gainutdinovrrr. informatika-ru

Задание 1:var sum:integer; beginfor var i := 5 to 35 doif 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.Пример работ:

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

gainutdinovrrr @gainutdinovrrr

September 2021 1 8 Report

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

Answers & Comments

LRSM

Задание 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.

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

2 votes Thanks 1

gainutdinovrrr спасибо большое !!

Answers & Comments

pomogite s paskalem sostavit programmu vychisleniya znachenij funkcij 55 ballov

paskal uravneniya srochno 20 ballov vse uravneniya po otdelnosti

paskal uravneniyasrochno

рекомендуемые вопросы

Helpful Links

Helpful Social