Напишите условие необходимое для работы следующей программы. Напишите программу, которая...

Question

Напишите условие необходимое для работы следующей программы. Напишите программу, которая в последовательности натуральных чисел определяет количество чисел, оканчивающихся на 5 или на 0.

Comments

ок

---

Поможите?

---

Готово

---

А в условии что писать ?

---

Сейчас здесь напишу

---

Хорошо

---

a-число, если a div 5=0 или a div 5=5, то k:=k+1

---

Ну там надо в ответ написать типо
if_________then

---

if a div 5=0 or a div 5=5 then k:=k+1

---

Это точно условие ?

Answer 1

Ответ:

Программу я написал на PascalABCnet

Объяснение:

program ex_1;

var n,i,k,a:integer;  //n-номер числа i-счетчик k-количество чисел a-число

begin

 writeln('Введите количество чисел');

 readln(n);

 for i:=1 to n do

 begin

   writeln('Введите ',i,' число');

   readln(a);

   if (a mod 5=0) or (a mod 5=5) then

     k:=k+1;

 end;

 writeln('Количество чисел, оканчивающихся на 0 или 5: ',k);

end.