Var a, b, c, d:integer; p: integer; begin writeln('Введите первое число:'); readln(a); writeln('Введите второе число:'); readln(b); writeln('Введите третье число:'); readln(c); writeln('Введите четвёртое число:'); readln(d); if a>b then writeln('1 число больше 2'); if a<b then writeln('1 меньше 2'); if b>c then writeln('2 число больше 3'); if b<c then writeln('2 меньше 3'); if c>d then writeln('3 число больше 4'); if c<d then writeln('3 меньше 4'); if c>d then writeln('4 число больше 1'); end.
var x: array[1..n] of integer; i, t, min: integer;
begin Randomize; Writeln('Элементы массива'); min:=32767; for i := 1 to n do begin t := Random(1001)-500; x[i] := t; Write(t:5); if Odd(i) and (t mod 5 = 0) and (min>t) then min:=t end; Writeln; Writeln('Минимальный нечетный элемент, кратный 5, равен ',min) end.
Думаю правильней 40 с, так как Килоба́йт (КБ, Кбайт [1]) — единица измерения количества информации, равная 1024 байтам. Действующий ГОСТ [1] указывает на такое определение килобайта как на некорректное, но исторически сложившееся. Но! Кто его знает, может вам дают уже по новой методике так что вспомните была написано "кбайт" или "Кбайт" Я бы выбрал 40, так как в свое время нас учили именно так
a, b, c, d:integer;
p: integer;
begin
writeln('Введите первое число:');
readln(a);
writeln('Введите второе число:');
readln(b);
writeln('Введите третье число:');
readln(c);
writeln('Введите четвёртое число:');
readln(d);
if a>b then
writeln('1 число больше 2');
if a<b then
writeln('1 меньше 2');
if b>c then
writeln('2 число больше 3');
if b<c then
writeln('2 меньше 3');
if c>d then
writeln('3 число больше 4');
if c<d then
writeln('3 меньше 4');
if c>d then
writeln('4 число больше 1');
end.