Помогите написать программу!!! PascalABC. Введите массив из 5 элементов с клавиа...

July 2022 1 11 Report

Помогите написать программу!!! PascalABC. Введите массив из 5 элементов с клавиатуры и найдите количество элементов, старшая цифра которых равна 8.

Answers & Comments

fasalv

Verified answer

Var a: array [1..5] of integer; i, amount: integer;
begin
read(a[1], a[2], a[3], a[4], a[5]);
amount := 0;
for i := 1 to 5 do
begin
while a[i] >= 10 do
begin
a[i] := a[i] div 10;
end;
if a[i] = 8
then
amount := amount + 1;
end;
writeln(amount);
end.

Answers & Comments

Verified answer

prochitajte dokument i dajte pismennye otvety na voprosytrebovaniya morozovskih

rasskaz rasputina uroki francuzskogo kakov smysl zamechaniya lidii mihajlovny

rasskaz vg rasputina uroki francuzskogo nachinaetsya rasskaz s nebolshogo vst

chemu ravno kolichestvo vydelivshegosya osadka pri vzaimodejstvii sulfata natriya s

privedite klassifikaciyu osnovanij zaranee spasibo

kakaya massa osadka obrazuetsya pri vzaimodejstvii rastvora hlorida bariya massoj

kakaya massa osadka obrazuetsya pri vzaimodejstvii rastvora hlorida cinka massoj8cac52b264b3946b577e86db4e866f02 78457

kakaya massa osadka obrazuetsya pri vzaimodejstvii rastvora hlorida cinka massoj

1v ravnobedrennyj treugolnik s osnovaniem 12 sm i perimetrom 32 sm vpisana okr

1kakaya massa osadka obrazuetsya pri vzaimodejstvii rastvora hlorida bariya masso

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

Helpful Links

Helpful Social