верно ли утверждение что ord 0 0

Ответ от Exemptor[гуру]
1.
program rnd;
var a1, a2: byte;
begin
for a1:=1 to 10 do
begin
for a2:=1 to 5 do
write(round(random*5));
writeln;
end;
end.
3.
program what_big;
var a,b,c: integer;
begin
readln('A:', a);
readln('B:', b);
readln('C:', c);
if a>b then
begin
if a>c then writeln('Большее число: ', a)
else
writeln('Большее число: ', c)
end
else
begin
if b>c then writeln('Большее число: ', b) else writeln('Большее число: ', c);
end;
end.
4.
program is_odd;
var a: integer;
begin
readln('Int number, please:',a);
if odd(a) then writeln('Number is odd!') else writeln('Number is NOT odd!');
end.
5.
program is_mod;
var a: integer;
begin
readln('Int number, please:',a);
if a mod 15 = 0 then writeln(a,' divide by 5');
end;.
Извини, второе не решил, там думать надо 🙂
И я их не проверял, на работе паскаля нет. Если при компляции будет ошибка - пиши мне, я тебе помогу.
Поклонник Мыла
Мыслитель
(8576)
<i>надо писать
write(round(random*36));</i>
В паскале функция random(x) возвращает случайное целое число в диапазоне от 0 до x
Так что не надо никаких раундов и звездочек.