Составьте программу которая находит сумму чётных чисел и произведение чисел крат...

August 2022 2 2 Report

Составьте программу которая находит сумму чётных чисел и произведение чисел кратных 5, в диапозоне от 30 до 50. Очень нужна как можно скорее,заранее спасибо.

danulpopov // PascalABC.NET 3.3, сборка 1576 от 16.11.2017
// Внимание! Если программа не работает, обновите версию!

begin
Write(range(30,50,2).Sum);
Write(' ', range(30,50,5).Aggregate(1,(x,y)->(x*y)));
end.

0 votes Thanks 1

rusanut Попроще вот так: var a, b, i: integer;begina:=0;b:=1;for i:=30 to 50 do begin if i mod 2 =0 then a:=a+i; if i mod 5 =0 then b:=b*i; end;writeln('Сумма чётных чисел равна ', a);writeln('Произведение чисел, кратных 5, равно ', b);end.

3 votes Thanks 2

rusanut var a, b, i: integer;
begin
a:=0;
b:=1;
for i:=30 to 50 do
begin
if i mod 2 =0 then
a:=a+i;
if i mod 5 =0 then
b:=b*i;
end;
writeln('Сумма чётных чисел равна ', a);
writeln('Произведение чисел, кратных 5, равно ', b);
end.

Answers & Comments

sostavte programmu nahozhdeniya maksimalnogo iz 4 chisel abcd primer vvoda 2

s kakimi iz veshestv budet reagirovat sernaya kislota hci h2o naoh cuso4

ldina ravnomernoj tolshiny plavaet vystupayu nad urovnem vody na vysotu h2sm

lyudi pzh srochno pomogite dayu tolko 10 ballov t k ya novichok i eto vsyo chto osta

dan paralellogramm mkrt u kotorogo storona mk na 3 sm koroche storony kr a perime

1 5 pro korni reshite pozhalujsto

v kompyuter postupayut rezultaty sorevnovanij po plavaniyu kolichestvo minut i s

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

Helpful Links

Helpful Social