Begin var a:array of integer; Var k:=0; For var i:=1 to 10 do Begin Readln(b); a[i]:=b; End; For var i:=1 to 10 do Begin If a[i] mod 5 = 0 then inc(k); End; If k=0 then println('No') Else println(k); End.
Должно быть так, проверить на ошибки не могу, так как компа нету рядом.
А вот так понятнее: 1001110= 1) проставь над каждой цифрой числа справо на лево двойки со степенями т.о. чтобы над первым нулем (справа) стояла 2 в нулевой степени, над единицей - 2 в первой степени, над следующей единицей - 2 во второй степени, и т.д. Т.О над последней единицей (слево) будет 2 в седьмой степени. а теперь смотри как получается число в десятичной: надо сложить произведения этиз двоек на те числа, которые стоят под ними соответственно. итак: 1001110=2в шестой* 1+2в пятой*0+2 в четвертой*0+2 в третьей*1+2 во второй*1+2 впервой*1+2 в нулевой*0 = 64+8+4+2=78
А вот так понятнее: 1001110= 1) проставь над каждой цифрой числа справо на лево двойки со степенями т.о. чтобы над первым нулем (справа) стояла 2 в нулевой степени, над единицей - 2 в первой степени, над следующей единицей - 2 во второй степени, и т.д. Т.О над последней единицей (слево) будет 2 в седьмой степени. а теперь смотри как получается число в десятичной: надо сложить произведения этиз двоек на те числа, которые стоят под ними соответственно. итак: 1001110=2в шестой* 1+2в пятой*0+2 в четвертой*0+2 в третьей*1+2 во второй*1+2 впервой*1+2 в нулевой*0 = 64+8+4+2=78
Begin
var a:array of integer;
Var k:=0;
For var i:=1 to 10 do
Begin
Readln(b);
a[i]:=b;
End;
For var i:=1 to 10 do
Begin
If a[i] mod 5 = 0 then inc(k);
End;
If k=0 then println('No')
Else println(k);
End.
Должно быть так, проверить на ошибки не могу, так как компа нету рядом.