В классе-10 учащихся 1 учащийся - на отлично ?%-составляют отличники? 1)1\10(одна десятая)=-0,2 2)0,2*100%=20%
Ответ:20% отличников.
Var K,n,i: integer;
begin
writeln('Введите число');
readln(K); n:=0;
for i:=1 to K do
if (i mod 2=1)and(K mod i =0) then n:=n+1;
writeln('Количество нечетных делителей числа равно ', n);
readln
end.
Выбирайте лучший ;)
Ну решение будет такой а с б ж сж+аб=сжаб ответ будет сжаб
А мне еще более лениво, поэтому решение на <u><em>PascalABC.Net 3.2</em></u>
Зачем напрягаться, если автор жадный и задачу за 5 баллов ставит?
begin
var x:=ArrRandom(7,-20,20); x.Println;
x.Select((e,i)->(e,i)).Where(a->(a[0] mod 2<>0) and (a[1] mod 2=0)).
Select(a->a[1]+1).Println
end.
Пример
20 9 13 -9 7 -8 -6
3 5
1 + 1 (1й раз) а > 3? нет
2 + 1 (2й раз) a > 3? нет
3 + 1 (3й раз), а > 3? да,
но однако третий раз тело выполнилось, потому что это цикл с постусловием. итого три раза выполнится тело цикла.
a = 4
b = 1, потому что мы его не меняли после инициализации, хотя использовали его для других целей
s = 5