uses crt;
var a:integer;
begin
write('Введите число: ');
readln(a);
if (a mod 13)=0 then write('Число делится без остатка на 13') else write('Число не делится без остатка на 13');
writeln;
if (a mod 10)=7 then write('Число оканчивается на цифру 7') else write('Число не оканчивается на цифру 7');
end.
Если нужно выполнять программу из-под программной оболочки, удали первую строку.
Program programma;
uses crt;
var i,j,m, n, k: integer;
a:array [1..100, 1..100] of integer;
begin clrscr;
randomize;
write('N = '); readln(n);
write('M = '); readln(m);
for i:=1 to n do
begin
for j:= 1 to m do
a[i,j]:=random(50);
end;
writeln;
k:=0;
for i:=1 to n do
begin
for j:= 1 to m do
write(a[i,j]:5);
writeln;
end;
for i:=1 to n do
begin
for j:= 1 to m-1 do
if (a[i,j]<=a[i,j+1]) then k:=k+1;
writeln;
if (k=m-1) then writeln ('Номер строки: ', i);
k:=0;
end;
end.
Program n1;
var a,sum: integer;
begin
readln(a);
sum:=0;
while (a<>0) do
begin
if(a mod 6=0) and (a mod 10=6) then sum:=sum+a;
readln(a);
end;
writeln(sum);
end.
Ну, если речь идет о поразрядной импликации -91 в дополнительном коде и 15, то, вроде, правильно.
Но меня вопрос насчет необходимости учета знаковых разрядов. В дополнительном коде они должны быть, а в Вашем решении их нет.
Поэтому было бы хорошо увидеть не только решение, но и само задание.
Ответ:
Большой, просторный, светлый дом.
Ребят хороших много в нём.
Красиво пишут и читают.
Рисуют дети и считают...(школа)
Загремел на небе гром,
Сотрясается весь дом
Я зажмурила глаза.
Что на улице...(Гроза)
Он в лесу ночами рыщет,
Пропитанье себе ищет.
Страшно слышать пасти щелк…
Кто в лесу зубастый...(Волк)