Даны 15 целых чисел. подготовить лист для определения количества чисел, которые оканчиваются цифрой 5.
Program Frank;
const n=15;
Type mas=array[1..n] of integer;
var a:mas;i,k:integer;
begin
k:=0;
for i:=1 to n do begin
a[i]:=i;
if a[i] mod 10=5 then k:=k+1;
end;
writeln(Кол-во чисел,которые заканчиваются на 5:= ,k);
end.
Програма работает,лично проверил) Написана на языке PASCAL
Оцени ответ
Подпишись на наш канал в телеграм. Там мы даём ещё больше полезной информации для школьников!
