Подсчитать значение произведения целых чисел кратных 3 и 5 от 1 до 20. Нужно сде...

July 2022 1 0 Report

Подсчитать значение произведения целых чисел кратных 3 и 5 от 1 до 20. Нужно сделать так, чтобы программа сама нашла числа, кратные 3 и 5, а не чтобы человек сам сразу их вбил в произведение. ПАСКАЛЬ

Answers & Comments

антагонист

Verified answer

Var a,s:integer;
begin
s:=1;
for a:=1 to 20 do begin
if (a mod 3 = 0) and (a mod 5 = 0) then s:=a*s;
end;
writeln('произведение чисел кратных 5 и 3 ==> ', s);
end.

Answers & Comments

Verified answer

paskal sostavte programmu vyvodyashuyu na ekran vse trehznachnye chisla summa ci

sostavit programmu vyvoda vseh trehznachnyh desyatichnyh chisel summa cifr kotoryh

podschitat znachenie proizvedeniya vseh celyh chisel kratnyh 3 i 5 ot 1 do 20 v pas

2n ya tak ponyal chto nuzhno zadat znamenatel n i kogda chisla dojdut do etogo zn

navodnenie prodolzhalos rovno sutki v pervyj chas voda v reke podnyalas na 1 dyuj

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

Helpful Links

Helpful Social