..............................................
.
.....
.....
Ответ:
1) 32; 2) 25
Объяснение:
1) _ _ _ _ _ - 5 символов, на каждом месте может стоять 1 или 0 (т.к. алфавит двоичный), значит: 2 * 2 * 2 * 2 * 2 = 2^5 = 32/
2) _ _ - 2 символа, на каждом месте может стоять один из 5 символов алфавита, значит 5 * 5 = 25
Program chik;
var s,i,n:integer;
begin
readln(n);
for i:=1 to n do
if(i mod 2=0)then s:=s+i;
writeln(s);
end.
<span>
</span>
Может это поможет:
Program TemperatureInDecember;
Uses crt;
Var tempDecember : array[1..31] of integer;
i, countPlus, countZero, countMinus : integer;
begin
Clrscr;
countPlus := 0;
countZero := 0;
countMinus := 0;
for i:= 1 to 31 do
begin
if tempDecember = 0 then countZero += 1
else if tempDecember > 0 then countPlus += 1
else countMinus += 1;
end;
writeln('В декабре дней с нулевой температурой было: ', countZero);
writeln('В декабре дней с отрицательной температурой было: ', countMinus);
writeln('В декабре дней с положительной температурой было: ', countPlus);
readln;
end.
Плохо отобразилось, вот скрин: