Здесь Вы можете найти ответы на многие вопросы или задать свой вопрос!
если переменная нужна целая то так:
x: =random(b-a)+a
если можно дробную, то так
x: =(b-a)*random+a
800*600*24*4/8=5760000 байт=5625 кбайт
var s1,s2: string;
begin
s1: ="параллелограмм";
s2: ="гром";
for i: = 1 to length(s1) do
if i > length(s2) then s[i]='';
if s1[i]< > s2[i] then s1[i]=s2[i];
writeln(s1);
end;
end.
чем не вариант, если правил нету)
не ворую
не лгу
слабым
Популярные вопросы