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 день с осадками.
В конце выводим количество дней с осадками
В конце пункта меню ставится троеточие. Пример для Скайпа "Skype - Безопасность..."
Но в современных программах такой вид не всегда есть. Многие не соблюдают такие правила написания программ.
64КБайта = 65536бай
теперь дели это число на 1024 и получаем время 64 сек за которое это файл передаётся.
Теперь 256байт умножаем на это время и видам размер в байтах 16384.
теперь делим на 1024 и получаем 16 это и есть ответ
var s:string;
i,n,max:byte;
begin
n:=0;i:=1;max:=0;
write('Введите s -> ');readln(s);
while i<=length(s) do begin
if (i=1) or (s[i]=' ') then begin
if i <> 1 then inc(i);
if (i<=length(s))and((s[i]='a') or (s[i]='A')) then
while i<=length(s) do
if s[i]<>' ' then begin
inc(n);
inc(i);
end else break;
end;
inc(i);
if max<n then max:=n;
n:=0;
end;
write('Длина самаго длинного слова на букву A = ',max);
end.
Var n,m:real;
begin
repeat
writeln ('Введите два угла при параллельной стороне, в градусах');
readln(n,m);
until (n>0)and(m>0)and(n<180)and(m<180)and(m+(180-m)+n+(180-n)=360);
if (n=m)and(m=90) then writeln('Прямоугольник')
else if ((n=90)and(m<>90))or((m=90)and(n<>90)) then writeln('Прямоугольная трапеция')
else if (n=m) then writeln('Равнобедренная трапеция')
else writeln('Обыкновенная трапеция');
end.