Вводится 7 чисел.посчитайте количество чисел, которые заканчиваются на 5.паскаль
Вводится 7 чисел.посчитайте количество чисел, которые заканчиваются на 5.паскаль
Гость
Ответ(ы) на вопрос:
Гость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.
При условии, что числа - целые
Гость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
Не нашли ответ?
Похожие вопросы