Var min,max,i,s,n:integer;
begin
randomize;
write('Введите диапазон: '); readln(min,max);
if(min>max) then begin
max:=max+min;
min:=max-min;
max:=max-min;
end;
write('Введите количество чисел: '); readln(n);
for i:=1 to n do begin
n:= min + random(max-min);
write(i,'-е число: ', n);
if((n>6) and (not odd(n))) then begin
s:=s+n;
writeln(' (Четное и >6, сумма равна: ', s,')')
end
else begin write(' (Не четное');
if(n>6) then writeln(', но >6)')
else writeln(' и <6)');
end;
end;
write('Сумма четных чисел >6 равна: ',s);
end.
1)Алгоритм решения задачи: <span>Программа должна запрашивать у пользователя следующую информацию:диаметр бака;высота бака;расход краски (площадь поверхности, которую можно покрасить одной банкой краски).В результате программа должна выдавать количество требуемых банок. При получении дробного числа округление должно всегда происходить в большую сторону.<span>Площадь крыши бака (круга) вычисляется по формуле <span>p * d2 /4</span> (где p – число пи, d - диаметр).
Площадь боковой поверхности цилиндра: p * d * h (где h – высота).
</span></span><span>Программа на языке Паскаль:
<span>const pi = 3.14;
var
d, h, b: real;
top, wall, q: real;
q_int: integer;
begin
write('Диаметр: ');
readln(d);
write('Высота: ');
readln(h);
write('Окрашиваемая площадь одной банкой: ');
readln(b);
top := pi * sqr(d) / 4.0;
wall := pi * d * h;
q := (top + wall) / b;
q_int := trunc(q) + 1;
write('Количество банок: ', q_int);
readln
end.
</span></span>
вообще признак делимости на 2 можно определить проще. Если остаток от деления на 2=0 тогда число делится на 2 нацело иначе нет if (n mod 2)=0 then writeln('Число делится на 2 нацело' ) else writeln('Число не делиться на 2 нацело' );
Однако если по условию задачи признак, такой то уж ничего не пделаешь
Program evenNum;
Uses crt;
var n:real;
begin
clrscr;
write('Введите число n: ');
readln(n);
if ((n/2)<>(n div 2)) then writeln('Число не делится на 2 нацело' )
else writeln('Число делится на 2 нацело' );
readkey;
end.
Дано: 1024 символа
32 символа-состав
1024/8=128=2^7=> 1 символ 7 бит
Значит 32*7=224 бита
Я думаю
1 знак= 8 битов
если рассматривать именно этот пароль тогда
5*8=40бит
