while n <= m do n := 1;
while n > m do n := 0;
write(n);
Если n <= m, то n = 1,
если n > m, то n = 0 (любое число)
При этом условные операторы использованы не будут.
Есть вариант попроще: write(ord(n <= m))
Если n <= m, то будет выведено 1 (порядковый номер true), иначе будет выведено 0 (порядковый номер false)
Var
a, b : integer;
begin
b:=1;
write('a?');
readln(a);
a := abs(a);
while a > 0 do
begin
b := b * a mod 10;
a := a div 10;
end;
if b mod 3 =0 then writeln('да')
else writeln('нет');
end.
Ответ:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
program Project1;
const n=10;
var i,sum:integer;
A:array [1..n] of integer;
begin
for i:=1 to n do begin
write('введите A[',i,']'); readln (A[i]);
end;
writeln;
sum:=0;
for i:=1 to n do
if A[i]<0 then begin
writeln ('A[',i,']'); sum:=sum+A[i];
end;
writeln ('Сумма отрицательных элементов =',sum);
end.
Объяснение:
3*1024=кб
652489:8=байт :1024= кб
8192:1024=кб :1024= мб
считай сам, ибо с моба не удобно
Это объект любой окружающего мира