Вопрос школьника по предмету Информатика
Напишите пожалуйста программу
С клавиатуры вводится N целых чисел, Nтоже вводится с клавиатуры. Найти сумму нечетных, оканчивающихся на 7 или сообщить, что таких чисел в введенной последовательности нет
Ответ учителя по предмету Информатика
var n,i,a,s,f:integer;
begin
write(‘n = ‘);
readln(n);
s:=0; f:=0;
for i:=1 to n do
begin
readln(a);
if abs(a) mod 10 = 7
then begin s:=s+a; f:=1; end;
end;
if f=1
then writeln(‘Сумма нечетных чисел, оканчивающихся на 7 = ‘,s)
else writeln(‘среди введенных чисел нет нечетных, оканчивающихся на 7’);
end.
Пример:
n = 5
25
-17
71
68
27
Сумма нечетных чисел, оканчивающихся на 7 = 10
Похожие вопросы от пользователей
1. ……….. your bedroom,your desk
2. …………. the bed a noise
3. …………. the washing up housework
4. ………….. the cleanned on the Tv,your clother
5. …………. a computer, the internet
6. ………….. out the rubbish the dog for a walk
7. ………….. time,a lot of money
8. …………. the house,the floor
Пожалуйста ПОМОГИТЕ
(a+2)^2+(5+a)^2-2(a-2)(5+a)
9,8; 10,14; 10,3; 9,4.