Вводится 7 чисел. посчитайте количество чисел, которые заканчиваются на 5. паскаль

Question

Информатика

Коташа

3 октября, 15:06

Вводится 7 чисел. посчитайте количество чисел, которые заканчиваются на 5. паскаль

+2

Ответы (2)

Знаете ответ на вопрос?

Полиект · Answer 1

Var a:array [1 ... 7] of integer; i, n:integer; beginn:=0; For i:=1 to 7 dobeginread (a[i]) ; If (a[i] mod 10) = 5 thenn:=n+1; end; writeln (n) ; end.

При условии, что числа - целые

Тонюня · Answer 2

Var a, i, k:integer;

begin

k:=0;

for i:=1 to 7 do

begin

write (i,'-е число = ') ;

readln (a) ;

if a mod 10 = 5 then k:=k+1;

end;

writeln ('k = ', k) ;

end.

Пример:

1-е число = 68

2-е число = 15

3-е число = 751

4-е число = 935

5-е число = 47

6-е число = 512

7-е число = 370

k = 2