Const N = 30; // Количетсво дней
var
i,count:integer;
h: array [1..N] of integer;
begin
count:=0;
writeln('Введите количество осадков');
for i:=1 to N do
read(h[i]);
for i:=1 to N do
if h[i]>0 then
count:=count+1;
writeln('Количество дождливых дней ', count)
end.
В первой строке указываем количество дней. Это константа N
Далее объявляем, что переменная count равна 0. В этой переменной мы будем хранить количество дней с осадками.
Далее мы вводим с клавиатуры 30 чисел, показывающих осадки.
Потом мы проверяем, если число в массиве больше нуля, то мы увеличиваем count на единицу. Тоесть прибавляем +1 день с осадками.
В конце выводим количество дней с осадками
Дробное значение же получается.
1024х2 = 2048
1024 * 0.2 = 204.8
итого 2252,8 ....
как-то некорректно выходит
Var
N, i, k, sum, t: integer;
begin
readln(N);
k := 0;
for i := 100 to 999 do
begin
t := i;
while t > 0 do
begin
sum := t mod 10;
t := t div 10;
end;
if sum = N then k := k + 1;
end;
writeln(k);
end.
А) осталось 3 стакана
б) осталось две свечи, остальные сгорели
в) День и ночь заканчиваются мягким знаком. Лето кончается, а осень начинается буквой О
– • –т – –р •е – • к• – б• • о – – •л – – •л
ТРЕКБОЛЛ
C английского trackball: track - путь, тропа + ball - шар, мяч. Трекбол - устройство в
виде шара на подставке, используемый вместо мыши или джойстика.
<span><span>
P.s. Т.к. трекбол на русском языке пишется с
одной «л», поэтому в правильности ответа я сомневаюсь</span> (на английском языке пишется двойная "L", но на русском одна «л»).</span>