Предмет: Информатика,
автор: timmach
Даны 15 целых чисел. подготовить лист для определения количества чисел, которые оканчиваются цифрой 5.
Ответы
Автор ответа:
0
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
Похожие вопросы
Предмет: Қазақ тiлi,
автор: kulzigitovakarina
Предмет: Физика,
автор: LEGENDA564
Предмет: Литература,
автор: otka0202
Предмет: Информатика,
автор: xStaSx