Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
если переменная нужна целая то так:
x: =random(b-a)+a
если можно дробную, то так
x: =(b-a)*random+a
var
i,j,k: integer;
s,p: string;
begin
p: ='abcdefghijklmnopqrstuvwxyzабвгдеёжзийклмнопрстуфхцчшщъыьэюя';
readln(s);
k: =0;
for i: =1 to length(s) do
for j: =1 to length(p) do
if s[i]=p[j] then k: =k+1;
writeln(k);
end.
((1+2): 3+4): 5=1
1+2+3-4+5-6=1
(1+2+3+4): 5+6-7=1
(1+2+3-4+5-6+7): 8=1
44100*24*60*2=127008000 бит = 15 мбайт
Популярные вопросы