Срочно! Дана последовательность чисел. 0-остановка последовательности. Найти про...

July 2022 1 18 Report

Срочно! Дана последовательность чисел. 0-остановка последовательности. Найти процент чисел, кратных пяти. (решить через repeat untill)

Answers & Comments

contrlc

var

totalCount, count, num: integer;

begin

totalCount := -1; count := 0; num := -1;

repeat

totalCount := totalCount + 1;

if (num mod 5 = 0) then count := count + 1;

read(num);

until (num = 0);

write((count * 100) / totalCount, '%');

end.

1 votes Thanks 1

Mister2265 а что такое "total count " и "num"

contrlc num - от слова number - переменная, которая хранит число (очередной член последовательности), а totalCount - переменная, которая хранит количество чисел кратных 5.

Mister2265 Спасибо за Ваши решения, выручили)

contrlc Точнее totalCount хранит количество чисел последовательности, а count хранит количество чисел кратных 5.

Mister2265 Ясно, спасибо большое)

Answers & Comments

reshit na paskale cherez random dan massiv razmera n n chetnoe chislo pomenyat

pomogite nuzhno podrobno i s otvetom

pomogite pozhalujsta while5 dano celoe chislo n bolshe 0 yavlyayusheesya nekotoroj

kakie iz urovnej organizacii zhivoj materii yavlyayutsya preimushestvenno predmetom iz

nuzhna blok shema k programme program if17 var a b c real begin writevvedi

pochemu staruha izergil i makar chudra otnosyatsya k romanticheskim proizvedeniya

kakuyu hudozhestvennuyu rol igrayut legendy v rasskazah staruha izergil i makar

srochno vvedeno chislo n najdite summu cifr chisla naprimerpishesh 361 i on dol

zachem sholohov tak podrobno opisyvaet dovoennye zhizn i byt kazakov tihij don

napisat programmy po itogam kotoryh na ekran vyvodilos by sdeduyushee112341234

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

Helpful Links

Helpful Social